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ABSTRACT 


The  Ships  Supply  Support  Study  developed  a  fleet  supply  support 
simulator  in  which  supply  support  dollar  outlays  may  be  related  to  fleet 
capability.  A  critical  assumption  made  in  the  development  of  the  simu- 
lator states  that  the  availability  of  an  item  at  a  given  echelon  is  inde- 
pendent of  its  availability  at  other  echelons.  A  study  is  devoted  to  the 
exploration  of  this  assumption.  A  computer  model  of  a  single  item  multi- 
echelon  supply  support  system  is  constructed.  A  day  by  day  history  of 
the  status  of  each  entity  in  the  system  is  obtained  along  with  an  in  and 
out  of  stock  profile  for  the  item  by  calendar  time  at  each  echelon.  Mar- 
ginal availabilities  and  conditional  availabilities  are  compared,  and 
other  measures  of  the  degree  of  dependence  of  echelon  availabilities  are 
presented.  Finally,  the  computer  model  is  extended  to  consider  a  multi- 
item  supply  system  and  similar  tests  are  made. 
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I.   INTRODUCTION 

In  August  of  1971  a  study  of  supply  support  to  the  ships  of  the 
United  States  Naval  fleet  was  directed  by  the  Chief  of  Naval  Operations 
[Ref.  1].  This  was  to  be  an  in-house  study  denoted  the  Ships  Supply 
Support  Study  or  more  commonly  by  the  acronym  Su.  The  purpose  of  S4,  as 
stated  in  the  study  directive,  is  to  "define,  develop,  and  propose  an 
automated  method  by  which  supply  support  dollar  outlays  may  be  related 
to  fleet  capability."  This  goal  was  to  be  achieved  by  developing  and 
studying  a  computer  simulation  model,  the  Supply  Support  Simulator  - 
Mark  I  version  and  later  expanding  the  simulator  by  developing  a  more 
complex  model  called  Mark  II.  This  simulator  was  designed  to  provide 
answers  to  questions  such  as  the  following: 

A.  What  is  the  relation  of  operational  availability  and  requisition 
response  time;  i.e.,  what  is  the  effect  on  operational  availability  if 
requisition  response  time  is  reduced  or  increased  drastically? 

B.  What  would  happen  to  requisition  response  time  if  the  Consolidated 
Shipboard  Allowance  List  (COSAL)  were  increased  or  decreased  by  a 
specified  percentage? 

C.  What  would  happen  if  the  Mobile  Logistic  Support  Force  (MLSF)  were 
relieved  of  all  end-use  requisition  functions? 

D.  What  would  be  the  effect  if  all  Defense  Supply  Agency  (DSA)  managed 
items  were  requisitioned  directly  from  the  DSA  Supply  Center? 

E.  What  would  happen  if  budgets  were  increased  or  decreased  at  an 
Inventory  Control  Point  (ICP)? 

F.  Similarly,  what  if  the  staff  at  an  ICP  were  increased  or  decreased 
by  a  specified  number  of  personnel? 

.  7 


To  accomplish  this  program,  a  computer  model  of  a  portion  of  the 
Naval  Supply  System  was  constructed.  This  model  consisted  of  five  inven- 
tory simulators  and  one  synthesizer.  The  output  of  the  model  consists  of 
estimates  of  the  average  requisition  response  time  by  Material  Cognizance 
Class  (COG).  This  output  can  then  be  manipulated  and  utilized  to  answer 
questions  such  as  those  posed  earlier. 

One  of  the  assumptions  made  by  the  Ships  Supply  Support  Study  group 
in  arriving  at  their  results  is  that  the  availability  of  an  item  at  a 
given  echelon  is  independent  of  its  availability  at  other  echelons 
[Ref.  2].  The  purpose  of  this  paper  is  to  investigate  the  validity  of 
that  assumption.  In  order  to  do  so  a  computer  simulation  of  a  simplified 
supply  support  system  was  developed  to  give  information  as  to  the  degree 
of  dependence  and  to  calculate  measures  which  allow  for  statistical  tests 
to  be  performed. 
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II.  SHIPS  SUPPLY  SUPPORT  STUDY  BACKGROUND 

Before  undertaking  the  testing  of  the  validity  of  the  assumption  of 
independence  among  echelons  of  supply,  a  background  study  of  the  Su  pro- 
ject was  made.  To  accomplish  the  S4  program,  a  computer  model  of  a  por- 
tion of  the  Naval  Supply  System  was  constructed.  To  facilitate  the 
building  of  simple,  first-cut  model,  the  Sixth  Fleet  in  the  Mediterranean 
was  selected  as  the  fleet  support  supply  system  to  be  modeled.  This 
fleet  was  selected  because  it  was  comparatively  simple  (compared  to  other 
fleet  support  systems)  and  the  data  base  necessary  was  readily  available. 
Specifically,  a  force  of  selected  ships  was  utilized  to  represent  the 
fleet  and  the  forces  supporting  it.  Later,  of  course,  only  the  input 
parameters  need  be  changed  to  adapt  the  model  to  any  Naval  supply  support 
operation. 

Basically,  the  Sixth  Fleet  supply  support  system  is  the  same  as  that 
of  the  other  fleets.  A  requisition  originating  at  a  ship  is  either 
satisfied  at  the  ship  itself  or  passed  to  the  next  higher  support  level. 
Screening  of  "sister"  ships  and  facilities  occurs  whenever  the  requi- 
sition is  for  an  emergency,  or  CASREP  item.  This  higher  support  level 
is  either  the  Mobile  Logistics  Support  Force  (MLSF)  if  the  part  is  on 
the  MLSF's  load  list  (FILL),  or  to  the  Naval  Supply  Center  (ar  Norfolk 
in  the  case  of  the  Sixth  Fleet),  if  the  part  is  a  non-fill  item.  From 
this  level  the  requisition  can  flow  either  to  a  Naval  ICP,  Defense  Supply 
Center  or  the  General  Services  Administration  warehouse  depending  on  the 
nature  of  the  item.  The  alternative  actions  available  at  various  levels 
is  indicated  in  the  flow  chart  of  Figure  1. 
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The  first  or  Mark  I  version  of  the  Supply  System  Support  Study  con- 
sisted of  five  inventory  simulators  and  one  synthesizer.  These  were 
designed  to  explore  the  relationship  between  supply  effectiveness  and 
the  funds  available.  That  is,  Mark  I  investigates  at  each  level  the 
ratio  of  the  number  of  requisitions  filled  to  the  number  of  requisitions 
received  as  a  function  of  the  funds  available  at  that  level.  This,  plus 
throughput  times  and  supply  availability  is  utilized  to  produce  an  esti- 
mate of  the  requisition  response  time.  The  later  or  Mark  II  version  of 
Sh   will  refine  and  extend  the  Mark  I  model.  In  general,  Mark  I 
operation  is  as  follows: 

A.  This  ship  or  fleet  simulator,  known  as  the  Afloat  Inventory  Management 
Simulator  (AIMS)  places  actual  demands  on  the  ship's  COSAL.  Actions  to 
satisfy  the  demand  are  taken  and  receipt  of  the  item  requisitioned  is 
noted. 

B.  The  Mobile  Logistics  Support  Force  Simulator  is  identical  to  AIMS. 
Only  a  slight  change  in  input  data  is  required. 

C.  The  Stock  Point  Simulator  in  Mark  I  is  for  single  items  only  and  not 
a  multi -warehouse  simulator.  This  simulator  is  used  to  forecast  the 
probability  that  the  stock  point  (at  Norfolk)  can  satisfy  a  requisition 
submitted  by  a  requisitioned 

D.  The  Inventory  Control  Point  is  modeled  by  two  simulators  to  account 
for  minor  variations  in  requisition  processing  between  the  Electronic 
Supply  Office  and  Ships  Parts  Control  Center.  Basically,  however,  the 
simulators  are  identical  and  are  constructed  similarly  to  the  stockpoint 
simulator  described  above.  Input  data  is  different  from  that  of  the 
stockpoint  simulator  but  the  output  is  virtually  the  same. 
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E.  The  synthesizer  receives  the  output  from  each  of  the  other  simulators 
as  its  input  and  estimates  the  mean  supply  response  time  by  COG  and  the 
inventory  and  work  load  associated  with  each  response  time. 
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III.  MEAN  SUPPLY  RESPONSE  TIME 

In  order  to  evaluate  the  various  cost  tradeoffs  that  can  be  analyzed 
in  a  complex  multi -echelon  supply  system  such  as  that  of  the  Navy,  a 
measure  of  effectiveness  must  be  chosen.  In  the  Ships  Supply  Support 
Study  operational  availability  is  used  for  this  purpose.  The  operational 
availability  of  a  component  is  defined  as  the  ratio  of  the  mean  time 
between  failure  (MTBF)  to  the  sum  of  the  mean  time  between  failure,  the 
mean  time  to  repair  (MTTR)  and  the  mean  logistic  delay  time  (MLDT): 


MTBF 
A.  =  


0   MTBF  +  MTTR  +  MLDT 


Mean  logistic  delay  time  is  further  partitioned  into  mean  administrative 
delay  time  (MADT)  and  mean  supply  response  time,  (MSRT),  where  the  latter 
is  defined  to  be  the  average  amount  of  time  required  to  get  the  needed 
unit  into  the  hands  of  a  mechanic  aboard  the  requisitioning  ship. 
Absorbing  the  administrative  delay  time  into  the  time  to  repair,  operational 
availability  is  written  as: 


MTBF 

V 


MTBF  i+  MTTR  +  MSRT 

Studies  have  indicated  that  MSRT  appears  to  average  about  30  to  40 
times  the  combined  value  of  mean  administrative  delay  time  and  mean  time 
to  repair  [Ref.  3].  Thus,  MSRT  is  generally  the  driving  factor  in  the 
equation  for  operational  availability.  It  becomes  important  to  know  how 
improvements  can  be  made  in  MSRT. 
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Mean  supply  response  time  is  itself  a  function  of  the  structure  and 
behavior  of  the  supply  system.  Suppose  a  system  has  n  echelons  with  the 
lowest  being  the  ship  store  room  and  the  n   echelon  being  the  manufac- 
turer of  the  part.  Whenever  a  unit  fails,  a  replacement  is  supplied  from 
the  ship's  storeroom  if  the  part  is  available;  otherwise,  a  requisition 
is  sent  forward  through  the  successive  echelons  until  it  is  either  sup- 
plied or  manufactured.  The  mean  supply  response  time  is  then  the  sum  of 
the  response  times  of  each  echelon  weighted  by  the  fraction  of  total 
requirements  it  satisfies.  Mathematically, 

n       j  -  1 
MSRT  =  a,t,  +  y\       a.t.   H   (1-a,) 
11   j  =  2  3   °  i  =  1    1 

■f-h 

where         a.-  =  the  probability  that  the  j   echelon 

activity  is  able  to  satisfy  an  end- 
use  requisition  given  that  it  cannot 
be  satisfied  by  a  lower  echelon. 

t.  =  the  time  from  the  mechanic's  need  for 
J   a  unit  of  material  until  his  receipt 
from  the  jth  echelon  activity. 

Recognize  that  the  inventory  at  each  echelon,  except  the  first  and 
last  echelons,  serves  two  purposes:  (1)  it  supplies  items  to  the  end 
user  which  are  not  carried  by  any  lower  echelon  or  not  available  at  any 
lower  echelon,  and  (2)  it  resupplies  each  lower  echelon  directly  or 
indirectly  to  maintain  the  availability  of  that  echelon.  In  the  expres- 
sion for  MSRT  note  that  the  weight  given  to  the  time  t.  is, 

j  -  1 
a,   n   (1-a.). 
J  i  =  i    i 
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This  represents  that  fraction  of  material  needed  for  repair  which  is 

+  h 

available  at  the  j   echelon  and  not  available  at  any  of  the  lower  eche- 
lons. Thus,  a.,  the  conditional  availability,  refers  to  the  ability  of 
echelon  j  to  supply  those  parts  which  lower  echelons  stocked,  but  which 
were  temporarily  out  of  stock  and  those  parts  which  lower  echelons  did 
not  stock.  This  availability  figure  is  generally  lower  than  the  figure 
which  represents  the  ability  of  an  echelon  to  replenish  or  resupply  stocks 
carried  at  lower  echelons  and  to  satisfy  end-use  requisitions.  Thus, 
theoretically,  it  is  only  at  the  ship  level  and  the  manufacturer's  level 
that  the  availability  to  satisfy  immediate  requirements  is  equal  to  the 
conventionally  measured  gross  availability. 

In  the  Ships  Supply  Support  Study  it  was  assumed  that  the  availability 
of  an  item  at  a  given  echelon  is  independent  of  its  availability  at  other 
echelons  [Ref.  1].  Define  the  marginal  availability,  A.,  for  echelon  i 
as  follows: 

A.  =  Probability  that  echelon  i  will 
be  able  to  satisfy  a  requisition. 

The  independence  assumption  made  above,  in  effect,  says  that  the  marginal 
availabilities  Ai  can  be  used  in  place  of  the  conditional  availabilities 
a..  Indeed,  the  use  of  A.  is  certainly  more  convenient,  for  it  is  esti- 
mated simply  by  dividing  the  number  of  requisitions  filled  by  the  total 
number  of  requisitions.  However,  it  is  not  clear  what  is  the  impact  of 
the  assumption. 

The  stock  profile  for  a  given  item  at  echelon  i  can  be  viewed  as  an 
alternating  renewal  process: 
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z^t)  = 


1  if  the  item  is  in  stock  at  echelon  i  at  time  t 


0  otherwise 


Typically,  it  would  be  expected  that  whenever  a  given  echelon  is  out 
of  an  item  the  lead  time  is  short  if  the  next  higher  echelon  is  in  stock, 
but  it  is  long  if  the  resupply  must  be  made  from  an  activity  several  eche- 
lons removed.  Thus,  long  intervals  of  time  in  which  several  echelons  are 
each  out  of  stock  would  not  seem  unlikely.  When  this  happens,  the 
availability  suffers  an  adverse  effect. 
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IV.  METHOD  OF  ATTACK 

The  purpose  of  this  study  is  to  test  the  hypothesis  that  the  set  of 
alternating  renewal  processes  describing  the  stock  profiles  of  each  eche- 
lon is  a  set  of  independent  processes,  and  to  quantify  the  importance  of 
the  dependence  if  the  hypothesis  is  rejected.  In  order  to  test  the 
hypothesis,  the  stock  profile  for  each  item  must  be  examined  by  calendar 
time  so  that  all  echelons  can  be  placed  on  a  common  time  scale.  This 
necessitates  following  each  requisition,  both  for  end  use  and  resupply, 
throughout  the  supply  system  until  it  is  satisfied. 

Nowhere  in  the  Navy  is  data  available  which  traces  the  movement  of 
a  particular  requisition  through  successive  echelons  until  material  is 
supplied.  This  excludes  a  data  oriented  study  of  independence  based  on 
available  data.  A  second  approach  would  be  to  study  the  assumption  by 
modeling  the  multi -echelon  supply  system  as  a  system  of  alternating 
renewal  processes.  Such  a  model  would  depend  on  a  knowledge  of  the 
inventory  policy  of  each  echelon,  the  distribution  of  demand  from  each 
activity,  and  the  interactions  between  the  echelons.  Unfortunately, 
attempts  to  model  even  yery   simple  multi -echelon  supply  systems  analy- 
tically have  proven  to  be  unsuccessful.  This  is  particulary  true  if  it 

i 

is  desirable  to  be  able  to  follow  requisitions  throughout  the  system. 
The  computational  implications  to  obtaining  an  analytic  solution  seem 
infeasible. 

Because  of  the  difficulties  associated  with  the  two  most  direct 
approaches  a  decision  was  made  to  study  the  problem  by  simulating  a 
hypothetical  multi-echelon  supply  system.  A  set  of  representative  items 
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was  selected  for  study.  The  number  of  echelons  considered  in  the  simu- 
lation model  was  reduced  to  four  for  simplicity.  The  hypothetical  supply 
system  has  the  following  activities: 


SHIPS 


AFS 


ICP 


MAFG 


ECHELON  1 
ECHELON  2 
ECHELON  3 
ECHELON  4 


Because  of  the  reduction  in  the  size  of  the  inventory  system,  the  magni- 
tude of  actual  supply  response  times  or  other  quantitative  measures  have 
questionable  interpretation;  however,  it  was  felt  that  an  answer  to  the 
question  about  independence  could  be  obtained  by  studying  the  simpler 
supply  system. 

Assumptions  about  stocking  policies,  resupply  policies,  and  resupply 
times  follow  as  closely  as  possible  those  which  have  been  incorporated 
into  the  Ships  Supply  Support  Study.  These  are  discussed  in  the  next 
section.  Demands  aboard  the  ships  are  generated  randomly  in  accordance 
with  instructions  in  S4.  All  effort  was  made  to  make  the  simulator  as 
realistic  as  possible.  The  demand  parameters,  load  lists,  reorder 
quantities,  reorder  levels  and  throughput  times  are  all  inputs  which  can 
be  easily  modified  to  accomodate  changes. 

The  simulator  was  designed  to  give  a  day  by  day  history  of  the  status 
of  each  activity.  It  also  provides  the  stock  profile  for  a  given  item 
by  calendar  time  at  each  echelon.  These  place  all  echelons  on  a  common 
time  scale  and  show  the  relations  between  the  item  availability  at  a 
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given  echelon  and  its  availability  at  the  other  echelons.  Additionally, 
conditional  availabilities  and  marginal  availabilities  are  calculated  at 
each  echelon,  and  comparisons  are  made.  From  these  outputs  statistical 
tests  of  the  independence  were  performed. 

To  illustrate  the  impact  of  any  dependence,  mean  supply  response 
times  were  calculated  two  ways.  The  first  method  used  the  appropriate 
conditional  availabilities  a.,  and  the  second  employed  the  marginal 
availabilities,  A. . 

Lastly,  the  simulation  model  was  extended  to  consider  a  multi-item 
system  so  that  weapon  system  availability  could  be  examined. 
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V.  SIMULATION  MODELS 

A.   SINGLE  ITEM  MODEL 

1 .  General 

The  single  item  model  simulates  a  fleet  supply  support  system 
consisting  of  four  echelons.  These  echelons  are: 

a.  The  fleet  composed  of  three  ships. 

b.  The  support  ship  (AFS). 

c.  The  Continental  United  States  based  supply  point  (ICP). 

d.  Manufacturer. 

The  modeling  of  each  echelon  is  discussed  in  the  material  which  follows. 

2.  First  Echelon   (The  Fleet) 

Random  demands  for  a  single  item  are  generated  according  to  a 
"Stuttering  Poisson"  distribution.  These  demands  and  the  dates  they 
occur  are  stored  to  be  called  in  sequence  as  the  time  clock  advances. 
The  spare  stock  carried  aboard  a  ship  to  support  the  given  item  is  deter- 
mined in  accordance  with  COSAL  regulations;  that  is,  the  spare  stock  is 
that  quantity  which  provides  90%  protection  for  a  30  day  period  of  time. 
If,  on  the  date  the  demand  occurs,  the  ship's  on-hand  stock  is  adequate 
to  fill  the  amount  demanded,  then  the  requisition  is  filled  immediately 
and  the  on-hand  stock  level  decreased  by  the  appropriate  amount.  A 
routine  requisition  is  forwarded  the  same  day  to  the  support  ship  (AFS) 
for  replenishment  which  will  occur  whenever  the  AFS  next  visits  the  ship 
(if  stock  is  on  hand  at  the  AFS).  This  replenishment  occurs  randomly  in 
zero  to  thirty  days  depending  on  the  physical  location  of  the  AFS  when 
the  requisition  is  received. 
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If  the  requisition  can  not  be  filled  by  the  shipboard  COSAL,  then 
it  becomes  a  priority  requisition  and  it  is  forwarded  to  the  AFS  or  ICP. 
The  decision  as  to  which  level  the  requisition  is  to  be  forwarded  is 
determined  by  the  on-hand  stock  at  the  AFS.   If  the  AFS  stock  is  adequate 
to  fill  the  demand  the  requisition  is  sent  there;  if  not,  the  requisition 
is  sent  to  the  ICP.  Priority  resupply  of  the  ship  occurs  in  a  maximum  of 
eight  days  from  stock  on  the  AFS  or  in  twenty-one  days  from  the  ICP. 
Once  again  the  number  of  days  from  the  AFS  to  the  ship  is  dependent  upon 
where  the  AFS  is  located  relative  to  the  position  of  the  ship  when  the 
priority  requisition  was  received  by  the  AFS. 
3.  Second  Echelon  (The  AFS) 

A  requisition  is  received  from  a  ship  only  if  the  AFS  stock  is 
adequate  to  fill  the  demand.  The  spare  stock  depth  for  the  AFS  is  cal- 
culated just  as  the  spare  stock  for  each  ship  was  determined.  For 
routine  requisitions,  the  item  is  tagged  as  in-transit  and  held  until 
the  AFS  and  the  ship  rendezvous.  As  explained  earlier,  this  occurs  ran- 
domly in  zero  to  thirty  days  depending  on  the  location  of  the  AFS. 

When  a  priority  requisition  is  received  by  the  AFS,  a  search  is 
made  first  of  on-hand  stock  and  then  of  in-transit  items  to  fill  the 
order.  If  an  item  which  is  in  transit  to  a  ship  is  utilized  to  fill  a 
priority  requisition,  the  AFS.  forwards  a  routine  requisition  to  the  ICP 
for  routine  delivery  of  an  item  directly  to  the  ship. 

Replenishment  stock  for  the  AFS  is  ordered  immediately  as  the  on- 
hand  stock  is  decreased.  The  AFS  is  then  resupplied  from  the  ICP  at 
forty-five  day  intervals  (i.e.,  the  AFS  returns  to  port). 
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4.  Third  and  Fourth  Echelon  (ICP,  Manufacturer) 

Routine  requisitions  received  by  the  ICP  are  coded  as  to  origi- 
nator and  filled  from  stock  or  back-ordered  as  appropriate.  The  items 
ordered  are  shipped  to  storage  bins  at  the  ship's  home  port  where  they 
await  pick-up  by  the  ship  or  AFS.  Priority  requisitions  are  handled 
similarly  except  they  are  sent  directly  to  the  ships  by  an  expedited 
means.  (The  AFS  does  not  submit  priority  requisitions  to  ICP.)  Ship- 
ment time  required  twenty-one  days  from  receipt  of  the  requisition  at 
the  ICP  until  receipt  of  the  item  at  the  ship. 

The  ICP  operates  on  an  (R,Q)  stockage  policy;  that  is,  whenever 
the  on-hand  level  reaches  a  level  R,  a  quantity  of  Q  items  is  ordered 
from  the  manufacturer.  Delivery  from  the  manufacturer  requires  six 
months  (180  days).  Upon  receipt  of  items  from  the  manufacturer,  first 
the  priority  back-orders  are  filled  and  then  the  routine  back-orders. 
Any  items  remaining  are  placed  in  stock. 

5.  Operation  of  the  Models  and  Output 

To  operate  this  model  the  following  input  data  is  required: 

a.  COSAL  level  of  each  ship. 

b.  COSAL  level  of  the  AFS. 

c.  Demand  rate  for  each  ship. 

d.  Rate  for  the  Stuttering  Poisson. 

e.  R  and  Q  for  the  ICP. 

f.  Initial   on-hand  stock  levels  for  the  ICP. 

The  model   simulates  a  period  of  three  years.     All   output  occurs 
at  the  completion  of  the  simulation.     A  day  by  day  history  of  the  on-hand 
stocks  levels  at  each  ship,  the  AFS  and  at  the  ICP  for  the  entire  length 
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of  the  simulation  (three  years)  was  obtained.  This  allowed  a  requisition 
to  be  traced  from  its  initiation  to  the  final  supply  action  of  filling 
this  requisition  and/or  any  other  requisitions  generated  as  a  result  of 
its  passing  from  one  level  to  another.  In  addition,  the  marginal  and 
conditional  availabilities  at  each  supply  level  were  determined. 

Marginal  availability  was  estimated  as  the  ratio  of  the  number  of 
requisitions  filled  to  the  number  of  requisitions  received  at  a  given 
level.  Similarly,  conditional  availability  at  echelon  i  was  estimated 
by  the  ratio  of  the  number  of  requisitions  filled  at  echelon  i  which 
could  not  be  filled  at  any  lower  echelon  to  the  total  number  of  requi- 
sitions received  by  echelon  i  which  could  not  be  filled  at  any  lower 
echelon. 

Finally,  values  of  the  test  statistics  to  be  used  for  the 
Chi-squared  tests  of  independence  of  echelon  availabilities  were 
calculated. 

B.  MULTI-ITEM  MODEL 

In  general,  the  multi-i tern  model  is  identical  to  the  single  item 
model.  Now  an  entire  weapons  system  consisting  of  fifty  parts  is  sup- 
ported by  the  supply  system.  This  allows  calculation  of  the  weapons 
system  availability  as  it  relates  to  supply  support.  The  differences  are; 

1.  The  fleet  of  three  ships  has  been  replaced  by  one  ship  with  a 
stockage  allowance  for  fifty  items. 

2.  The  AFS  is  still  a  single  ship  but  it  now  stocks  fifty  items. 
Each  is  handled  identically  in  the  same  manner  as  in  the  single  item 
model.  However,  the  AFS  arrives  at  the  ship  on  a  regular  cycle  and. 
transfers  all  items  due-in  to  the  ship  at  that  time. 
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3.  The  ICP  operates  identically  as  before  except  fifty  items  are 
stocked. 

Input  data  is  virtually  the  same.  Output  consists  of  the  marginal 
and  the  conditional  availabilities  calculated  for  each  of  the  fifty  parts 
at  each  of  the  three  levels.  Additionally,  the  weapons  system  avail- 
ability is  calculated.  This  is  the  ratio  of  the  number  of  days  the 
weapons  system  is  operational  to  the  total  number  of  days.  An  operational 
day  occurs  whenever  there  are  no  priority  requisitions  outstanding  at 
the  shipboard  level . 
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VI.   CONCLUSIONS 

To  demonstrate  the  validity  or  non-validity  for  the  assumption  being 
tested  in  this  study,  it  was  necessary  to  exercise  the  computer  model 
several  times  using  a  variety  of  input  parameters.  This  was  done  to 
insure  that  resultant  output  be  obtained  for  a  representative  spectrum 
of  item  characteristics.  The  results  of  these  computer  runs  are 
summarized  in  Table  2. 

As  is  obvious  from  the  table  there  is  overwhelming  evidence  that  the 
marginal  availabilities  exceed  the  conditional  availabilities.  This  in 
itself  is  a  strong  indication  of  the  fallacy  of  the  assumption  tested. 
To  further  verify  what  appears  to  be  true  just  by  observing  the  results 
presented  in  Table  2,  a  Chi -squared  test  for  independence  was  conducted. 

As  an  example  of  this  test  consider  the  following  contingency  table: 


SHIP 
on-hand  >_  0 

SHIP 
on-hand  <  0 

AFS 
on-hand  >_  0 

Nn 

N12 

Nl- 

AFS 
on-hand  <  0 

n21 

N22 

N2. 

N-l 

«:2 

N 

TABLE  1.  Contingency  Table 
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Where  N. .  is  the  number  of  days  the  stated  condition  holds  and 
*  j 

is  the  total  number  of  days.  The  contingency  table  provides  a  method  for 
investigating  suspected  relationships.  Let 

(  0  if  the  ship  on-hand  stock  is  less  than  0 

X  = 

(  1  otherwise 

and 

i  0  if  the  AFS  stock  on-hand  is  less  than  0 
Y  =   ] 

i    1  otherwise 

Now  define  the  following  joint  probabilities  and  marginal  probabilities: 

P  [X  -  1.  Y  -  1]  -  P11 

p  [X  =  1,  Y  ■  0]  =  P12 

P  [X  =  0,  Y  =  1]  =  P2] 

P  [X  =  0,  Y  =  0]  =  P22 

P  [X  ■  1]  =  p]         P  [X  =  0]  =  p2 
P  [Y  ■  1]  =  q1         P  [Y  =  0]  =  q2 

Then  the  null  hypothesis  that  the  AFS  and  the  ship  classifications  are 
independent  is  equivalent  to  the  null  hypothesis: 


Ho:  Pi-j  =  P-jP-j     i  =  l,2,j  =  l 


,2 


Using  maximum  likelihood  estimates  of  these  probabilities,  P..,  it  can 
be  shown  that  for  large  sample  sizes  the  test  statistic 
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,_  <NirNPn>2  ,  'Ni2-Np]2^-  ,  (n21-w21>2  ,  (n22-np22)* 

NP„  NP12         NP21         NP22 


is  approximately  Chi -squared  distributed  with  one  degree  of  freedom. 
Thus,  the  test  of  independence  reduces  to  a  comparison  of  the  test  sta- 
tistic S  with  the  value  x  2(1)  obtained  from  Chi-squared  tables.  If  S 

a 

exceeds  x  2(1)  the  null  hypothesis  is  rejected. 

a 

At  the  .05  level  of  significance,  the  value  of  *2(1)  is  3.843.  Denote 

those  runs  where  either  the  ship  or  the  AFS  fails  to  stock  the  given  item 

(COSAL  or  FILL  is  zero)  or  where  the  item  is  available  100%  of  the  time 

at  either  echelon  as  "degenerate"  cases.  Then,  as  can  be  observed  from 

Table  3,  the  value  of  the  test  statistic  consistently  exceeds  the  value 

3.843  for  the  nondegenerate  cases.   Furthermore,  the  test  statistics 

usually  exceed  3.843  by  a  substantial  margin.  These  tests  indicate  that, 

for  the  nondegenerate  cases  studied,  the  availability  of  an  item  at  the 

first  echelon  is  not  independent  of  the  availability  of  the  item  at  the 

second  echelon.  For  the  degenerate  cases  it  can  be  easily  shown  that 

P^  =  p •  q  - 9  that  is,  the  AFS  and  the  ship  classification  are  independent. 

Similar  tests  of  the  independence  of  the  availabilities  of  the  first  and 

third  echelons  and  the  second  and  third  echelons  all  point  to  the  same 

conclusions.  These  test  statistics  are  also  presented  in  Table  3. 

Obviously,  these  conclusions  can  only  be  made  for  the  particular  items 

studied.  However,  because  of  the  wide  range  of  item  characteristics 

examined  and  the  consistency  by  which  the  test  statistics  exceed  the 

value  xct2(l),  there  is  strong  evidence  that  the  item  availability  at  a 

given  echelon  depends  on  the  item  availability  at  the  other  echelons  except 

in  degenerate  cases. 
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COSAL 
QUANTITIES 

REORDER 
DATA 

CHI  SQUARED 
STATISTICS 

HIP 

AFS 

ICP 

R 

Q 

SHIP/AFS 

SHIP/ICP 

AFS/ICP 

2 

9 

7 

4 

202.76 

62.61 

35.43 

1 

9 

7 

4 

197.13 

47.84 

52.73 

0 

9 

7 

4 

0.00 

101.10 

0.00 

2 

9 

4 

3 

532.17 

534.37 

335.92 

1 

9 

4 

3 

72.59 

389.39 

110.29 

0 

9 

4 

3 

0.00 

214.98 

0.00 

2 

9 

6 

3 

252.98 

157.94 

221.00 

1 

9 

6 

3 

151.09 

214.39 

39.02 

0 

9 

6 

3 

0.00 

170.62 

0.00 

2 

9 

9 

4 

283.43 

2.00 

38.60 

1 

9 

9 

4 

236.41 

9.79 

14.43 

0 

9 

9 

4 

0.00 

117.27 

0.00 

0 

2 

9 

7 

4 

0.00 

0.00 

198.57 

0 

1 

9 

7 

4 

0.00 

0.00 

79.40 

0 

0 

9 

7 

4 

0.00 

0.00 

0.00 

0 

2 

9 

4 

3 

0.00 

0.00 

332.69 

0 

1 

9 

4 

3 

0.00 

0.00 

186.97 

0 

0 

9 

4 

3 

0.00 

0.00 

0.00 

0 

2 

9 

6 

3 

0.00 

0.00 

226.33 

0 

1 

9 

6 

3 

0.00 

0.00 

123.13 

0 

0 

9 

6 

3 

0.00 

0.00 

0.00 

0 

2 

9 

9 

4 

0.00 

0.00 

69.68 

0 

1 

9 

9 

4' 

0.00 

0.00 

37.87 

0 

0 

9 

9 

4 

0.00 

0.00 

0.00 

*1 

3 

12 

15 

9 

88.90 

118.73 

65.24 

*2 

3 

12 

15 

9 

41.12 

89.14 

7.95 

*1 

3 

12 

20 

9 

0.38 

98.83 

13.16 

*2 

3 

12 

20 

9 

154.23 

26.26 

18.28 

*1 

3 

12 

12 

9 

119.61 

10.25 

7.58 

*2 

3 

12 

12 

9 

64.15 

61.10 

7.79 

*Ship  demand  rate  is  1/30  days.  All  others  are  1/90  days 

TABLE  3.  Chi -Squared  Statistics 
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To  examine  the  impact  of  the  dependence,  mean  supply  response  time 
was  calculated  for  several  of  the  runs  using,  first,  the  marginal 
availabilities  in  the  equation  for  MSRT  and  then  the  conditional  avail- 
abilities. These  calculated  values  of  MSRT  are  presented  in  the  last 
two  columns  of  Table  2.  The  sample  values  show  that  the  difference  can 
be  substantial.  In  some  cases  the  difference  exceeds  100%.  In  all 
cases,  the  MSRT  using  marginal  availabilities  underestimates  the  cor- 
rectly calculated  value.  The  differences  are  smallest  in  the  degenerate 
cases.  From  these  calculations  it  would  appear  that  the  mean  supply 
response  times  determined  by  S1*  would  underestimate  the  true  mean  supply 
response  time. 

The  day  by  day  comparison  of  the  stock  position  of  each  echelon  is 
presented  graphically  in  Table  4.  This  graph  shows  that  runs  occur  in 
which  several  echelons  are  all  out  of  stock,  thus  producing  a  possible 
adverse  effect  on  the  logistic  support  of  the  supply  system. 


30 


o 
o 
n 


o 
o 


Qi 


CO 

>- 
a 


o 

s_ 
o. 

_v 
o 
o 

+■> 
CO 


O 
O 


«3" 
Ul 

—I 


Q- 
O 


CO 

Ll- 


»— « 

DC 
CO 


31 


o 
o 


O 

o 


co 

>- 


CD 

O 

*3" 


Q) 


O 

i. 

a. 

-^ 
o 
o 

co 


cu 

C 
•r— 
4-> 
E 
O 
O 


_l 
CO 


CO 


re 

CO 


32 


o 
o 


O 

CD 
CO 


a> 


o 

i- 
a. 

.^ 
o 

o 

+J 

I/O 


CD 
CD 


-a 
cu 

rs 
c 

E 
O 

o 


UJ 


CO 


a. 
o 


to 


i— • 
IS) 


33 


3$;  5^2$:  )§C3$E3$C  ^r  3fc^j£>£afc5l£3fc>£3fc3fc3^3fc3£')fc3£3^3fca^3^3fc3fcafc3fc3fc^3fc3fcS^ 

*  THE    PURPOSE    OF    THIS    COMPUTER    PROGRAM    IS    TO    SIMULATE    A  * 

*  THREE    ECHELON    SUPPLY    SYSTEM    USING    A    SINGLE     ITEM      COSAL.  * 

*  IT    UPDATES    BACK    ORDERS,    IN    TRANSIENT,     AND    ON    HAND    QUAN-  * 

*  TITIES    ON    A    DAY-TO-DAY    BASIS    FOR    THREE    YEARS    AND    COM-  * 
$  $ 

*  PUTES    MARGINAL    AND    CONDITIONAL    AVAILABILITIES    AT    EACH  * 

*  LEVEL    AS    WELL    AS    THE    CORRELATIONS    OF    STOCKOUTS    BETWEEN  * 

*  * 

*  LEVELS.  * 

*  * 
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C0MM0N/GIN0/DEMNDI3), I AMNTC3), IC0NT(9J, ITIME, 
.  IQ,IX,IHAN,IB0(4)  , I NTRN(3)  ,IMANU(9)  ,  IP, I  SENT (3) 
.  ,IPC0N(6),  ISHIP(6), IP  BO (6) ,  I  SB  INC  4) , I  HAND! 4)  ,IR, 
.  IPTRN(3)  ,  I PSENT(3) 

DIMENSION  AVERG(  3)  ,  FAI LU(3)  ,A1(3)  ,DMAND(3) 

DIMENSION  SHAF { 4 ) , SHCP ( 4 ) , AFCP ( 4 ) , ESA( 4) ,  ESC ( 4) , E AC ( 4 J 

DATA  Al/3*0.0/ 

DATA    CA2/0.0/,CA3/0.0/ ,CAl/0. 0/ , DA2/0. 0/ 

DATA    A2/0.0/, A3/0.0/, DM AND/3*0 . 0/ , TOTAL /0. 0/ 

DATA     SH/O. 0001/,AF/0. 0001/ , CP/0. 0001/ ,SHAF/4*0 .0/ , 
.SHCP/4*0.0/,AFCP/4*0.0/,CHlSA/0.0/,CHISC/0.0/, 
.CHIAC/0.0/ 

READ    (5,1000)     AVERG,FAILU,IHAND,IR, IQ, IHAN 
1000    FORMAT (6F6. 2, 7 12) 

WRITE     (6,8081) 
8081    FORMAT(,l,,»    THE    PARAMETERS    FOR    THIS    RUN    ARE:') 

WRITE (6, 90 00)     AVERG.FA ILU, I  HAND, IR,IQ,IHAN 
9300    FORMAT* •     •  , /  ,6 F6 .2 , 71 2 , //// , '    THE    DAY-TO-DAY    ON-HAND', 
.'    STATUS    IS:1) 

DO    6135     I    =    1,     50 

RN=RNM( 0) 
6135  CONTINUE 

IP  =  IHAN 
;      DETERMINE  TIME  TILL  FIRST  DEMAND  L    AMOUNT  DEMANDED 

DO  100  K  =  1,3 

RN=RNM(0) 

DEMND(K)    =  -AVERG(K)*ALOG(RN) 

RN=RNM(0) 

IAMNT(K)  =    INT(ALOG(RN)/ALOG( FAILU(K) ) )     +    1 

100    CONTINUE 

WRITE(6,3001 ) 
3001    FORMAT*1     ',//,«  SHIP1       SHIP2       SHIP3  AFS«, 

.'  ICP         DAY',/) 

109    CONT INUE 
:  RUN    PROGRAM    FOR    45    DAY    MLSF    TURN    AROUND    TIME 

DO    106     IMLSF    =     1,45 

ITIME    =    ITIME    +    1 

IF( ITIME.GT.1098)    GO    TO    901 

IPART    =    0 

CALL    PRI0R(0,1 ) 

CALL     ICP    (0,1) 

CALL    MLSF    (0,1  ) 

DETERMINE     IF    IT    IS    TIME    FOR    A    DEMAND   TO    OCCUR 

DO    102    Kl    =    1,3 

IF(DEMND(K1 J.GT.O.O)  GO  TO  102 

DMAND(Kl)  =  DMAND(Kl)  +  1.0 

IF( IHAND(Kl) .LT.IAMNT(Kl) )  GO  TO  121 

Al (Kl)  =  Al (Kl  )  +1  .0 

GO  TO  126 

121  CA1  =  CA1  +  1.0 

126  IF(1HAND(4) .LT. IAMNTIK1 } )  GO  TO  122 
A2  =  A2  +  1.0 

122  IF( IHAN.LT. IAMNT(K1 ) )  GO  TO  123 
A3  =  A3  +  1.0 

123  IFdHAND(Kl)  .GE.  IAMNT(Kl)  )  GO  TO  125 
IF(IHAND(4).LT .IAMNT (Kl) )  GO  TO  124 
CA2  =  CA2  +  1.  0 

GO  TO  125 

124  DA2  =  DA2  +  1.0 

IF(  IHAN.LT. IAMNT(KD)  GO  TO  125 
CA3  =  CA3  +  1.0 

125  CONTINUE 
IHAND(K1)=IHAND(K1)  -  IAMNT(Kl) 
K  =  K 1 

CALL  SHIP  (K) 
1       DETERMINE  TIME  TILL  NEXT  DEMAND  a  AMOUNT  DEMANDED 
RN=RNM(0 ) 

DEMND(Kl)  =  -AVERG(K1)*AL0G(RN)  +  1 
RN=RNM( 0) 
IAMNT(Kl)  =  INT(AL0G(RN)/AL0G(FAILU(K1) ) )  +  1 
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102  CONTINUE 

DO  120  K  =  1,3 

DEMNO(K)  =  DEMNDCK)  -  1.0 
120  CONTINUE 

IF( IHAND(l) .LE.O)  GO  TO  181 

SH  =  SH  +  1.0 

181  IFC IHANDC4) .LE.O)     GO    TO    182 

AF    =     AF    +    1.0 

182  IF (IHAN.LE.O)     GO    TO    183 

CP    =    CP    +    1.0 

183  IF(  IHAND(l)  -LE  .0  .AND.  I  HAND  {  4 )  .LE.O)SHAF(  1)=SHAF(  1)  +  1.0 
IF(  IHANDd  ) . LE. 3. AND. I  HAND (4) .GT.O) SHAF ( 2 ) =S HAF (2  )+1.0 
I  Ft IHAND( 1  J .GT . 0 . AND . I  HAND ( 4  J .LE.OJ  SHAF (3)  =SHAF ( 3 ) +1 . 0 
IFUHAND(l)  .GT.O.  AND.  I  HAND  (4)  . GT .0 ) S HAF ( 4 ) =S HAF ( 4)+l. 0 
1F(IHAND(1).LE.0.AND. IHAN.LE.O) SHCP(1)=SHCP(1) +1.0 

IF( I  HAND (1 ) .LE.0.AND.IHAN.GT.0)SHCP(2)=SHCP(2)+1.0 
IFCIHANDC1). GT.O. AND.  IHAN.LE.O  )SHCP(3)  =  SHCP(3)+1.0 
IF{ IHAND( 1) .GT.O. AND. IHAN.GT.O) SHCP(4) =SHCP(4)+1.0 
IF(IHAND(4).LE .O.AND. I  HAN. L E .0 ) AFCP ( 1)=AFCP(1)+1.0 
IF( I  HAND (4) .LE.O.AND.IHAN.GT.O) AFCP C2 ) = A FCP C2 ) +1 .0 

IF( IHAND(4).OT.O.AND.IHAN.LE«0)AFCP(3) =AFCP(3M1.0 
IF (I  HAND (4) .GT .0 . AND. I  HAN .GT .0 ) AFCP (4 )  =  A FCP ( 4 ) +1 . 0 
159    1FI ITIME.LT.60J     GO    TO    152 
IF( ITIME.NE.60 )     GO    TO     161 
WRITE     (6»3003) 

161  IFdTIME.LT. 130)  GO  TO  152 
IF(  ITIME.NE.130)  GO  TO  162 
WRITF    (6,3003) 

162  IF{  ITIME.LT.200)  GO  TO  152 
IF{ ITIME.NE.200 )  GOTO  163 
WRITE     (6,3003) 

163  IF(  ITIME.LT.270)  GO  TO  152 
IFUTIME.NE.270)  GO  TO  164 
WRITE(6,3003) 

164  IF( ITIME.LT.340)  GO  TO  152 
IFtITIME.NE.340)  GO  TO  165 
WRITEt  6,3003) 

165  IFdTIME.LT. 410)  GO  TO  152 
IF( ITIME.NE.410)  GO  TO  166 
WRITEC6.3003) 

166  IFC ITIME.LT.480)  GO  TO  152 
IFC ITIME.NE.480)  GO  TO  167 
WRITE(6,3003) 

167  IFCITIME.LT.550)  GO  TO  152 
IFC ITIME.NE. 550)  GO  TO  168 
WRITE<6,3003 ) 

168  IFdTIME.LT. 620)  GO  TO  152 
IFC ITIME.NE. 620)  GO  TO  169 
WRITE(6,3003) 

169  IFC ITIME.LT.690)  GO  TO  152 
IFC ITIME.NE. 690)  GO  TO  170 
WRITE(6,3003) 

170  IFdTIME.LT. 760)  GO  TO  152 
IFt ITIME.NE. 760)  GO  TO  171 
WRITEC6,3003) 

171  IFt ITIME.LT.830)  GO  TO  152 
IFC ITIME.NE. 830 )  GO  TO  172 
WRITEC6.3003) 

172  IFC ITIME.LT.900J  GO  TO  152 
IFCITIME.NE.900)  GO  TO  173 
WRITEC  6,3003) 

173  IFt ITIME.LT.970)  GO  TO  152 
IFCITIME.NE.970)  GO  TO  174 
WRITEC6,3003) 

174  IFdTIME.LT. 1040)  GOTO  152 
IFC ITIME.NE. 1040)  GO  TO  152 
WRITE    (6,3003) 

152     WRITE(6,3000)     I  HAND, I  HAN, IT IME 
3000    FORMATC'     ,,6{3X,I4)) 

3003    FORMATC d',»  SHIP1       SHIP2       SHIP3         AFS«, 

.»  ICP         DAY',/) 

106    CONTINUE 
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151 

901 

131 


184 

6663 

3002 
6665 

6664 

3004 


PICK    UP 
DO    151 
IHANDt I 
ISBINt I 
CCNTINU 
GO    TO    1 
CONT  INU 
DO    131 
Al(  I)    = 
TOTAL    = 
CONTINU 
A2    =    A2 
A3    =    A3 
CA3    =    C 
CA2    =    C 
CA1    =    1 
ESA(l) 
ESA(2) 
ESA(3) 
ESA(4) 
ESC(l) 
ESC(2) 

ESCC3) 
ESC(4) 

EAC(l) 
EAC(2i 
EAC13 

EAC(4) 
DO    184 
CHISA=C 

CHISO 

CHI  AC  = 
CONTINU 
CORSA  = 
CORSC  = 
CORAC  = 
WRITE(6 
FORMATt 
■  S 

WRITE(6 
FORMATt 
WRITE(6 
FORMAT! 
,  ■  COR 

WRITEI6 
WRITEI6 
FORMATt 
,20X,» 
MR  I  TE  {  6 
FORMATt 
STOP 
END 


ROUTIN 
1=1  t4 
)     ■     I  HA 
)    =    0 
E 

09 
E 

1  =  1,3 
Alt  I)/ 
TOTAL 

E 

/TOTAL 
/TOTAL 
A3/DA2 
A2/CA1 
.0    -    CA 
=    tl098 
=    (1098 
=    SH*(1 
=    SH*AF 
=     tl098 
=    t 1098 
=    SH*t 
=    SH*CP 
=     t  109 
=    tl098 
>     =    AF* 
=    AF*C 
L    =    1,4 
HISA+t t 
CHISC  +  t 
CHIAC+t 
E 
tSHAFt 
(SHCPt 
(AFCPt 
,6663  ) 

•  ',/,« 

2  S 
,3002  ) 
8( IX, F6 
,6665) 

1     ' ,20X 
SA  CO 

,3004) 
,6664) 
1     «,20X 
CHISA 
,30  04) 

•  ',20X 


E    RESUPPLIES    FROM    ICP 
ND(I)    +     ISBINtI) 


DMANDd  ) 
+    DMANDt I) 


1/TO 
.  0-S 
.0-S 
098. 
/109 
.0-S 
.  0-S 
1098 
/109 
8.  0- 
.0-A 
(109 
P/10 


TAL 
H)*( 

H)*A 

O-AF 

8.0 

H)*( 

H)*C 

.o-c 

8.0 

AF)* 

F)*C 

8.0- 

98.0 


1098.0-AF)/1098.0 
F/1098.0 
J/1098. 0 

1098.0-CP)/1098.0 

P/1098.0 

PJ/1098.0 

tl098.0-CP)/1098.0 
P/1098.0 
CP)/1098 .0 


SHAF(L)-ESAtL) )**2)/ESA(L) 
(SHCP(L)-ESC(L) )**2)/ESC( L) 
tAFCPtL)-EACtL))**2)/EACtL ) 

4)  +  SHAFt 1) )/1098.0 
4)  +  SHCPtl)  )/1098.0 
4)  +  AFCPtl) ) /1098.0 


THE  AVAILABILITIES  ARE: 
3      AF  S     ICP     CA1 
A1»A2,A3,CA1,CA2,CA3 
.4) ,/) 


',/»« 


CA2 


SI'  , 
CA3'  ) 


,«    THE    CORRELATIONS 
RSC  CORAC) 

CORSA, CORSC, CORAC 

, ■     THE    CHI     SQUARED 
CHISC       CHIAC'J 
CHISA,  CHISCCHIAC 
,3(  1X,F7.4) ) 


ARE: ',/i20X 


STATISTICS    ARE:' ,/ 
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SUBROUTINE    SHIP(K) 
C 
C  — INVENTORY    POSITION    OF    THE    SHIPStQ=l    POLICY — 


C 


C0MM0N/GIN0/DEMND(3), I AMNT ( 3 ) ,  IC0NTI9),  IT  I  ME, 
.IQ,IX,1HAN,IB0{4),INTRN(33  ,  IMANIH9) , IPt ISENT(3 J 
.  ,IPC0N(6),  ISHIP(6) , IP  BO (6) T I  SB IN(4) ,  IHAND( 4)  ,IR, 
. IPTRNC3)  ,  IPSENT<3) 

IF( IHAND(K) .GE. 0 )GO    TO    205 

ICHCK    =     IHAND(K)     +     IAMNT(K) 

IF(ICHCK.LE.O) GO    TO    206 

IAMNT(K)    =     ICHCK 

IPRIO    =    -IHAND(K) 

CALL    PRIOR(IPRIO,K) 

GO    TO    2  05 
206     IPRIO    =     IAMNT(K) 

CALL    PRIOR(IPRIO,K) 

GO  TO  202 
205  IFUHAND14)  .EO.OJGO  TO  204 

IPART  =  IHAND(4)  -  IAMNT(K) 

IF( IPART. LT.O)GO  TO  201 

IPART  =  IAMNT(K) 

CALL  MLSF( IPART, K) 

GO  TO  202 

201  CONTINUE 
IPART  =  -IPART 
CALL  ICP(IPART,K) 
IPART  =  IHAND(4) 
CALL  MLSFl  IPART, K) 
GO  TO  202 

204  CONTINUE 

IPART  =  IAMNTt  K) 
CALL  ICP(IPART,K} 

202  CONTINUE 
RETURN 
END 
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SUBROUTINE  MLSF (  I  PART , K) 
C 
C      — INVENTORY  POSITION  OF  THE  MLSF,Q=U  POLICY — 


C 


COMMON/GINO/DEMND(  3),  I  AMNT(  3  )  ,  ICONTl  9)  ,  I  TI  ME  , 
.  10,  IX,  I  HAN,  I  BO  (4)  ,  INTRNI3)  ,1  MANU(9),  IP,  ISENTC3J 
. . IPC0N(6) ,  ISHIP( 6)  , IPSO (6)  ,1 SBIN(4)  , I  HAND (4)  ,IR, 
•  IPTRNC3  Jt  IPSE>JT(3) 

IF( IPART. EQ.O) GO    TO    325 

IP  IS  GREATER  THAN  ORDER  SO  FILL  IT 

IHANDU)  =  IHAND14)  -  IPART 

CHECK  IF  A  PART  IS  INTRANSIT,  ADD  THIS  PART  TO  IT 

IF(  INTRN(K) .GT  .0  )G0  TO  350 

SET  THE  RANDOM  DAYS  INTRANSIT  COUNTER 

RN=RNM( 0) 

ISENT(K)  =  IT  I  ME  +  INT(RN*30.0) 

PUT  THE  PART  INTRANSIT 

INTRN(K)  =  IPART 

GO  TO  320 

PUT    THE    ADDITIONAL     PART    INTRANSIT 
350     INTRN(K)     =     INTRNIK)     +    IPART 

FORWARD    ALL    REQUISITIONS    TO    ICP 

K  T     ss    K 

320  CALL  ICP( IPART, 4) 

K  =  KT 

GO  TO   340 

CHECK  TO  SEE  IF  INTRANSIT  PARTS  HAVE  ARRIVED 
325  DO  330  1=1 ,3 

IF( INTRN(I) .EO.O)GO  TO  330 

IFdSENTU  ).GT.ITIME)GO    TO    330 

IHAND(I)     =    IHANDU)     +     INTRNU) 

INTRN(I)    =     0 

ISENT( I )  =  0 
330  CONTINUE 
340  RETURN 

END 
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SUBROUTINE     ICP(IPART,K) 
C 
C  — INVENTORY    POSITION    OF    THE     ICP,(R,QJ     POLICY — 


C 


CCMMCN/GIN0/DEMNC(3  )  t  IAMNT(3),  ICONT(9),  IT  I  ME, 
.  10,  IX,  I  HAN,  160(4),  INTRNC3)  ,  I MANU ( 9 )  , I P, I S E NT (3 ) 
. ,IPC0N(6  ),  ISHIP(6 J,  IPB0{6) ,  ISBIN(4),  IHAND( 4) , IR, 
. IPTRN(3)  ,IPSENT(3) 

IF( IPART.E0.0JG0    TO    435 

IF{ IPART. GT.IHANJGO    TO    420 

IP    IS    GREATER    THAN    ORDER    SO    FILL     IT 

IHAN    =     IHAN    -    IPART 

IP    =    I P    -    IPART 

ISBIN(K)     =    ISBIN(K)     +    IPART 

GO    TO    470 

IF    IP    WAS'T    LARGE    ENOUGH   TO    FILL    ORDER 
420    IF( IHAN.GT.OJGO    TO    430 

IHAN  =  IHAN  -  IPART 

IP  =  IP  -  IPART 

IBO(K)  =  IBO(K)  +  IPART 

GO  TO  470 

NOW  IF  IP  CAN  FILL  CNLY  PART  OF  THE  ORDER 
430  ISBIN(K)  =  ISBIN(K)  +  IHAN 

IBOCK)  =  IBO(K)  +  IPART  -  IHAN 

IHAN  =  IHAN  -  I  PART 

IP  =  IP  -  IPART 

CHECK  TO  SEE  IF  IT  IS  TIME  TO  REORDER 
435  IF(IP.GT.IR)  GO  TO  444 

CAN  REORDER,  BUT  CHECK  TO  SEE  IF  WE  ALREADY  HAVE 

DO  440  J=l ,9 

IF(IMANU(J).GT.0)GO  TO  440 

OK,  REORDER 

IMANU(J)  a  10 

IP  =  IP  +  IMANU(J) 

SET  6  MONTH  COUNTER  FOR  ARRIVAL  FROM  MANUFACTURER 

ICONTC J)  =  ITI ME  +  180 

GO  TO  444 
440  CONTINUE 

HAS  THE  MANUFACTURED  ITEMS  ARRIVED 

444  CONTINUE 

DO  460  N=l  ,9 

IF(IMANU(N) .EO.OJGO  TO  460 

IF(ICONT(N) .GT .ITIMEJGO  TO  460 

YES 

DO  450  1=1,4 

CAN    THE    BO    BE    FILLED 

IFUMANU(N)  .LE.  IB015-I  )  J  GO    TO    445 

YES 

IMANU(N)    =     IMANU(N)    -     IB015-I) 

ISBIN(5-I)     =    ISBINC5-I)    +    IB015-I) 

IB015-IJ    =    0 

GO    TO   450 

BO    CAN    BE    PARTIALLY    FILLED 

445  IB0I5-I)    =     IB0(5-I)    -    IMANU(N) 
ISBIN(5-I)     =    ISBIN(5-I)    +    IMANU(N) 
IMANU(N)     =    0 

450    CONTINUE 

IMANU(N)  =  0 
460  CONTINUE 
470  RETURN 

END 
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c 
c 
c 


730 
740 


720 


750 
760 


710 


711 

790 


7  80 


731 
721 


770 


SUBROUTINE     PRIOR    (I PRIO, K) 

— THIS     IS    THE    SUBROUTINE    FOR    PRIORITY    REQUISITIONS- 

COMMON/GINO/DEMND( 3), I AMNT(3),  IC0NT{9)  , ITI ME , 

I0,IX,IHAN,IB0(4) , INTRN(3),  IMANU(9),  IP, ISENTI3) 

,  IPC0N(6)  ,  ISHI P(6)  , I PB0(6)  ,1  SB  IN (4)  , I  HAND (4), IR, 

IPTRN(3), IPSENT(3) 

IF  C I PRI O.EQ.O)     GO    TO   330 

IF( IHAND(4).LE.0)     GO    TO    710 

IPCHK    =     IHAND(4)    -     IPRIO 

IF (IPCHK. LT.O)     GO    TO    720 

IF( IPSENT(K) .GT.O)     GO    TO    740 

IF( ISENT(K) .EO.O )    GC   TO    730 

IPTIME     =    I SENT(K)     -    ITIME 

IPSFNT(K)    =       MINO( 8, IPTIME)    +    ITIME 

GO    TO    740 

IPSENT( K)     =    8    +    ITI  ME 

IHANDI4)    =     IHAND(4)    -     IPRIO 

IPTRN(K)     =     IPTRN(K}     +    IPRIO 

IPART    =     IPRIO 

KT    =    K 

CALL    ICP    (IPART, 4) 

K    =    KT 

RETURN 

IF1 IPSENT(K) .GT.O)     GO    TO    760 

IFUSENT(K)  .EOcOJGO    TO    750 

IPTIME    =    ISENT(K)    -    ITIME 

IPSENT(K)     =       MINOC 8, IPTIME)    +    ITIME 

GO    TO    760 

IPSENT(K)    =    8    +    ITIME 

IPTRN(K)     =    IPTRN(K)     +     IHAND(4) 

IHAND(4)    =    0 

IPART    =     IHAND(4) 

KT    =    K 

CALL     ICP    (IPART, 4) 

K    =    KT 

IPRIO    =    -IPCHK 

DO    770    J    =     1,3 

IFIINTRN(J) . EO.O)     GO   TO    770 

IPCHK    =    INTRN( J)     -I PRIO 

IF( IPCHK. LT.O)     GO    TO    780 

IF( IPSENT(K) .GT.O)     GO    TO    790 

IF( ISENT(K) .EO.O)    GO    TO    711 

IPTIME    =    ISENT(K)    -    ITIME 

IPSENT(K)     =       MIN0(8, IPTIME)     +    ITIME 

GO    TO    790 

IPSENT(K)     =    8    +    ITIME 

INTRN(J)     =    INTRN(J)     -    IPRIO 

IPTRN(K)    =     IPTRNIK)     +    IPRIO 

IPART    =    IPRIO 

CALL     ICP    (IPART, J)  , 

RETURN 

IF (IPSENT(K).GT.O)     GO    TO    721 

IFdSENT(K)  .EO.O)    GO       TO    731 

IPTIME    =     ISENT (K)    -    ITIME 

IPSENT(K)     =       MIN0(8,I  PTIME)    + 

GO    TO    731 

IPSENT(K)    =    8    +    ITIME 

IPTRN(K)     =    IPTRN(K)     +    INTRN(J) 

INTRN(J)    =    0 

IPART    =    INTRN(J) 

CALL    ICP    (IPART, J) 

IPRIO    =    -IPCH< 

IF  (I  PRIO.  EO.O)     RETURN 

CONTINUE 

THIS     IS    THE     ICP    PORTION    OF    THE 

IFUPRIO.GT.  IHAN)GO    TO    310 


ITIME 


PRIORITY  SUBROUTINE 
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THE  ORDER 
I  HAN  =  I  HA 
IP  =  IP  - 
1F( ISHIPIK 
ISHIP(K)  = 
SHIPMENT  T 
IPCCJN(K)  = 
GO  TO  800 

305  ISHIP(K+3) 
IPCONiK+3) 
GO  10  800 

310  IFUHAN.GT 
NO  PARTS  0 
IHAN  =  IHA 
IP  =  IP  - 
IPBO(K)  = 
GO  TO  800 
PART  OF  TH 

320  IF(ISHIP(K 
ISHIP(K)  = 
SHIPMENT  T 
IPCON(K)  = 
GO  TO  326 

325  ISHIP(K+3) 
IPC0NIK+3} 

326  IPBO(K)     = 
IHAN    =     IHA 
IP    =     IP    - 
GO    TO    800 
HAVE    PARTS 

330    DO    34-0    N  =  l 
IF( IMANU(N 
IF( ICONT(N 
IHAN    =    IHA 
SOME    PARTS 
DO    360    J=l 
IF(IMANU(N 
IMANU(N)     = 
ISHIP(J)    = 
IPCONU)     = 
IPBOU)     = 
GO   TO    360 
IF( IMANU(N 
PARTIALLY 
IPBOIJ)     = 
ISHIP(J)     = 
IPCON(J)    = 
IMANU(N)     = 
CONTINUE 
CONT  INUE 
HAVE    ANY    P 
DO    741    J    = 
IF(  IPTRNU 
IF(IPSENT( 
IHAND(J)    = 
IPTRN(J)    = 
IPSENTt  J) 
CONTINUE 
DO    370    1=1 
IF(  ISHIPd 
THE    SHIPMA 
IFCIPCONCI 
IF( I.GT.3) 
IHAND(  I  )    = 
GO    TO    376 

375  IHAND( 1-3) 

376  ISHIP1 I )  = 
370  CONTINUE 
800  CONTINUE 

RETURN 
END 


CAN  BE  FILLED,  PUT  THE  PART  IN  SHIPMENT 

N  -  IPRIO 

IPRI  0 

).GT.O)GC  TO  305 

IPRIO 
AKES  21  DAYS 

ITIME  +  21 


350 


360 
340 

751 


741 


=  I PRIO 
=  ITIME  + 


21 


.0)GO  TO  320 

N  HAND  SO  BACKORDER  ALL  OF  THE  PARTS 

N  -  IPRIO 

IPRI  0 

IPBO(K)  +  IPRIO 

E  ORDER  SHIPPED  AND  PART  BACKORDERED 
).GT  .0)G0  TO  325 

IHAN 
AKES  21  DAYS 

ITIME  +  21 

=  IHAN 

=  ITIME  +  21 
I PBO( K)  +  I PRIO  -  IHAN 
N  -  IPRIO 
IPRIO 

ARRIVED  FROM  MANUFACTURER  TODAY 
♦  9 

) .EO.OJGO  TO  340 
)  .GT  .ITIMEJGO  TO  340 
N  +  10 

HAVE  ARRIVED,  SO  FILL  PRIORITY  BO'S 
,3 
) .LE.IPBC(J) )G0  TO  350 

IMANU(N)  -  IPBO(J) 

ISHIP(J)  +  IPBO(J) 

ITIME  +  21 
0 

) .EQ.OJGO  TO  340 

FILL  PRIORITY  BACKORDERS 

IPBO(J)  -  IMANU(N) 

ISHIP(J)  +  IMANU(N) 

ITIME  +  21 

0 


ARTS  ARRIVED  AT  THE  SHIPS 

1,3 
J.EQ.OJ  GO  TO  741 
J) .GT. ITIME)  GO  TO  741 

IHAND(J)  +  IPTRNU) 

0 

=  o 

.6 

) .EO.OJGO  TO  370 

NT    HAS    ARRIVED,     ADD    IT    TO    SHIP'S    ON    HAND 
) -GT. ITIMEJGO    TO    370 
GO    TO    375 
IHANDd  )    +    ISHIP{  I) 

=    IHAND(  1-3)    +    ISHIPd  ) 
0 
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BLOCK    DATA 
C0MM0N/GIN0/DEMND(3) 


10, IX, IHAN, IB0(4), 
,1 PC0N(6) . ISHIP(6) 


I  AMNT(3)  ,IC0NT(9) 


INTRN(3)  ,  IMANU(9) 
IPB0{6) , ISBIN(4), 
IPTRNO)  ,IPSEMT(  3) 

DATA    IMANU/9*0/,  IC0NT/9*0/,  ITIME/0/, 
DATA    ISBIN/4*0/,IB0/4*0/,INTRN/3*0/, 


t IT  I  ME, 
TI SENT13) 


IP 
IHANDC4), 


IR, 


IPB0/3*0/ 
ISENT/3*0/ 


DATA 
END 


IPSENT/3*0/,IPTRN/3*0/, I  PC  ON/6* 0/ , I SH I P/6*0/ 
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SAMPLE    OUTPUT    FOR    THE    SINGLE     ITEM    MODEL 


THE    PARAMETERS    FOR     THIS    RUN    ARE: 
90.00    90.00    90.00       0.05       0.05       0.05 

THE    CAY- TO-DAY    ON-HAND    STATUS    IS: 


1112    7    4    9 


SHIP1       SHIP2       SHIP3 


AFS 


ICP 


DAY 


0 
0 
0 
0 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 

1 

1 

1 


9 

1 

9 

2 

9 

3 

9 

4 

9 

5 

9 

6 

9 

7 

9 

8 

9 

9 

9 

10 

9 

11 

9 

12 

9 

13 

9 

14 

9 

15 

9 

16 

9 

17 

9 

18 

9 

19 

9 

20 

9 

21 

9 

22 

9 

23 

9 

24 

9 

25 

9 

26 

9 

27 

9 

28 

9 

29 

9 

30 

9 

31 

9 

32 

9 

33 

9 

34 

9 

35 

9 

36 

9 

37 

9 

38 

9 

39 

9 

40 

9 

41 

9 

42 

9 

43 

9 

44 

9 

45 

9 

46 

9 

47 

9 

48 

9 

49 

9 

50 

9 

51 

9 

52 

9 

53 

9 

54 

9 

55 

8 

56 

8 

57 

8 

58 

8 

59 

44' 


SHIP1       SHIP2       SHIP3 


AFS 


ICP 


DAY 


0 

8 

60 

0 

8 

61 

0 

8 

62 

0 

8 

63 

0 

8 

64 

0 

7 

65 

0 

7 

66 

0 

7 

67 

0 

7 

68 

0 

7 

69 

0 

7 

70 

0 

7 

71 

0 

7 

72 

0 

0 

7 

73 

0 

0 

7 

74 

0 

0 

7 

75 

0 

0 

7 

76 

0 

0 

7 

77 

0 

0 

7 

78 

0 

0 

7 

79 

0 

7 

80 

0 

7 

81 

0 

7 

82 

0 

7 

83 

0 

7 

84 

0 

7 

85 

0 

7 

86 

0 

7 

87 

0 

7 

88 

0 

7 

89 

0 

7 

90 

2 

7 

91 

2 

7 

92 

2 

7 

93 

2 

7 

94 

2 

7 

95 

2 

7 

96 

2 

7 

97 

0 

6 

98 

0 

6 

99 

0 

6 

100 

0 

6 

101 

0 

6 

102 

0 

6 

103 

0 

6 

104 

6 

105 

6 

106 

6 

107 

6 

108 

6 

109 

1 1 

6 

110 

6 

111 

6 

112 

6 

113 

6 

114 

6 

115 

6 

116 

6 

117 

6 

118 

6 

119 

6 

120 

6 

121 

6 

122 

6 

123 

6 

124 

6 

125 

6 

126 

6 

127 

6 

128 

6 

129 

45 


SHIP1       SHIP2       SHIP3 


AFS 


ICP 


DAY 


0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


6 

130 

6 

131 

6 

132 

6 

133 

6 

134 

6 

135 

6 

136 

6 

137 

6 

138 

6 

139 

6 

140 

6 

141 

6 

142 

6 

143 

6 

144 

6 

145 

6 

146 

6 

147 

6 

148 

6 

149 

6 

150 

6 

151 

6 

152 

6 

153 

6 

154 

6 

155 

6 

156 

6 

157 

6 

158 

6 

159 

6 

160 

6 

161 

6 

162 

6 

163 

6 

164 

6 

165 

6 

166 

6 

167 

5 

168 

5 

169 

5 

170 

5 

171 

5 

172 

5 

173 

5 

174 

5 

175 

4 

176 

4 

177 

4 

178 

4 

179 

4 

180 

4 

181 

4 

182 

4 

183 

4 

184 

4 

185 

4 

186 

4 

187 

4 

188 

4 

189 

4 

190 

4 

191 

4 

192 

4 

193 

4 

194 

3 

195 

3 

196 

3 

197 

3 

198 

3 

199 

46 


SHIP1       SHIP2       SHIP3 


AFS 


1CP 


DAY 


1 

0 

1 

1 

3 

200 

1 

0 

1 

1 

3 

201 

1 

0 

1 

1 

3 

202 

0 

0 

1 

0 

2 

203 

0 

0 

0 

0 

204 

0 

0 

0 

205 

0 

0 

0 

206 

0 

0 

0 

207 

0 

0 

0 

208 

0 

0 

0 

209 

0 

0 

0 

210 

0 

0 

0 

211 

0 

0 

0 

212 

0 

0 

0 

213 

0 

0 

0 

214 

0 

0 

0 

215 

0 

0 

0 

216 

0 

0 

0 

217 

0 

0 

0 

218 

0 

0 

0 

219 

0 

0 

0 

220 

0 

0 

0 

221 

0 

0 

0 

222 

0 

0 

0 

223 

0 

0 

0 

224 

0 

0 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 

2 

5 

246 

2 

5 

247 

2 

5 

248 

2 

5 

249 

2> 

5 

250 

2 

5 

251 

2 

5 

252 

2 

5 

253 

2 

5 

254 

2 

5 

255 

2 

5 

256 

2 

5 

257 

2 

5 

258 

2 

5 

259 

-  x 

2 

5 

260 

2 

5 

261 

2 

5 

262 

2 

5 

263 

2 

5 

264 

2 

5 

265 

2 

5 

266 

2 

5 

267 

2 

5 

268 

2 

5 

269 

47 


SHIP1   SHIP2   SHIP3 


AFS 


ICP 


DAY 


2 

5 

270 

2 

5 

271 

2 

5 

272 

2 

5 

273 

2 

5 

274 

2 

5 

275 

2 

5 

276 

2 

5 

277 

2 

5 

278 

2 

5 

279 

2 

5 

280 

2 

5 

281 

2 

5 

282 

2 

5 

283 

2 

5 

284 

2 

5 

285 

2 

5 

286 

2 

5 

287 

2 

5 

288 

0 

3 

289 

0 

3 

290 

0 

3 

291 

0 

3 

292 

0 

3 

293 

0 

3 

294 

0 

3 

295 

0 

3 

296 

0 

0 

3 

297 

0 

0 

3 

298 

0 

0 

3 

299 

0 

0 

3 

300 

0 

0 

3 

301 

0 

0 

3 

302 

0 

0 

3 

303 

0 

D 

3 

304 

0 

0 

3 

305 

0 

0 

3 

306 

0 

0 

3 

307 

0 

0 

3 

308 

0 

0 

3 

309 

0 

0 

3 

310 

0 

0 

3 

311 

0 

0 

3 

312 

0 

0 

3 

313 

0 

0 

3 

314 

0 

0 

3 

315 

0 

2 

3 

316 

2 

3 

317 

0 

2 

318 

0 

2 

319 

0 

1  i 

2 

320 

0 

2 

321 

0 

2 

322 

0 

0 

0 

323 

0 

0 

324 

0 

0 

325 

0 

0 

326 

0 

0 

327 

0 

0 

328 

0 

0 

329 

0 

0 
0 
0 
0 
0 

330 
331 
332 
333 
334 

—  1 

0 

—  1 

335 

—  1 

0 

—  1 

336 

—  1 

0 

—  1 

337 

—  X 

0 

—  1 

338 

— i 

0 

—  1 

339 

48 


SHIP1   SHIP2   SHIP3 


AFS 


ICP 


DAY 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


-1 
-1 

-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
~2 
-2 


-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 


0 
0 
0 
0 
0 
0 
0 
0 
0 

1 
1 
1 
1 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


0 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
2 
2 
2 
2 


-1 

-1 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
-2 
2 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
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SHIP1   SHIP2   SH1P3 


AFS 


ICP 


DAY 


0 

L       2 

0 

410 

0 

2 

0 

411 

0 

L       2 

0 

412 

0 

2 

0 

413 

2 

0 

414 

0 

—  1 

415 

0       ] 

—  1 

416 

0       ] 

—  1 

417 

0       ] 

—  1 

418 

0       ] 

—  1 

419 

0       J 

—  1 

42  0 

0       ] 

—  1 

421 

0       ] 

—1 

422 

0       ] 

—  1 

423 

0       ] 

—  1 

424 

0       ] 

—  1 

42  5 

0       ] 

—  1 

426 

0       ] 

—  1 

427 

o     : 

—1 

428 

0       ] 

—  1 

429 

0       ] 

—  1 

430 

0       ] 

—1 

431 

0       ] 

—  1 

432 

0       ] 

—  1 

433 

0       ] 

—  1 

434 

0       ] 

—  1 

435 

0       ] 

—  1 

436 

0       ] 

—  1 

437 

0       ] 

—  1 

438 

0       ] 

—  1 

439 

0       ] 

—  1 

440 

0 

-1 

441 
442 
443 
444 
44  5 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 

0 

L  '      0 

-2 

458 

o     : 

L       0 

-2 

459 

0       ] 

0, 

-2 

460 

0 

L       0 

-2 

461 

0       ] 

L       0 

-2 

462 

0       ] 

L       0 

-2 

463 

o     : 

L       0 

-2 

464 

0       J 

L       0 

-2 

465 

0       ] 

L       0 

-2 

466 

o     : 

L       0 

-2 

467 

o     : 

I       0 

-2 

468 

o     ; 

L       0 

-2 

469 

o     ; 

L       0 

2 

470 

0 

0 

2 

471 

0       ] 

L       0 

2 

472 

o     : 

L       0 

2 

473 

0 

L       0 

2 

474 

L       0 

2 

475 

L       0 

2 

476 

L       0 

2 

477 

L       0 

2 

478 

L       0 

2 

479 
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KP1       SHIP2       SHIP3 


AFS 


ICP 


DAY 


0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
2 
2 


2 

480 

2 

481 

2 

482 

2 

483 

2 

484 

2 

485 

2 

486 

2 

487 

2 

488 

2 

489 

2 

490 

2 

491 

2 

492 

2 

493 

2 

494 

2 

495 

2 

496 

2 

497 

2 

498 

2 

499 

2 

500 

2 

501 

2 

502 

2 

503 

2 

504 

2 

505 

2 

506 

2 

507 

2 

508 

2 

509 

2 

510 

2 

511 

2 

512 

2 

513 

2 

514 

2 

515 

6 

516 

6 

517 

6 

518 

6 

519 

6 

520 

6 

521 

6 

522 

6 

523 

6 

524 

6 

525 

5 

526 

4 

527 

4 

528 

4 

529 

4 

,530 

4 

531 

3 

532 

3 

533 

3 

534 

3 

535 

3 

536 

3 

537 

3 

538 

3 

539 

3 

540 

3 

541 

3 

542 

2 

543 

2 

544 

2 

545 

2 

546 

2 

547 

2 
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2 

549 

51 


SHIP1       SH1P2       SHIP3 


AFS 


ICP 


DAY 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 


0 
0 

0 
0 
0 

0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 

620 

0 

621 

0 

622 

0 

623 

0 

624 

0 

625 

0 

626 

0 

627 

0 

628 

0 

629 

0 

630 

0 

631 

0 

632 

0 

633 

0 

634 

0 

635 

0 

636 

0 

—  1 

637 

0 

—1 

638 

0 

—  1 

639 

0 

—  1 

640 

0 

—  1 

641 

0 

—  1 

642 

0 

—  1 

643 

0 

—  1 

644 

0 

—  1 

645 

0 

—  1 

646 

0 

—1 

647 

0 

—  1 

648 

0 

—  1 

649 

0 

—  1 

650 

0 

—  1 

651 

0 

-2 

652 

0 

-2 

653 

0 

-2 

654 

0 

-2 

655 

0 

-2 

656 

0 

-2 

657 

0 

-2 

658 
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DAY 
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0 
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0 
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0 
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799 
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0 
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4 
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4 
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4 
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4 
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4 
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4 
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4 

827 

4 
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4 
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0 
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4 

830 

4 

831 

4 

832 

4 
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4 

834 

4 
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4 

836 

4 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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3 
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7 

862 

7 
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7 
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7 
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7 

866 
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7 
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7 
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6 

870 
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6 
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6 
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6 
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6 
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6 
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6 
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AFS 
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2 
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2 

2 


5 
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5 

901 

5 
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5 

903 

5 

904 

5 

905 

5 

906 

5 
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5 

908 

5 

909 

5 

910 

5 

911 

5 

912 

5 

913 

5 

914 

5 

915 

5 

916 

5 

917 

5 

918 

5 

919 

5 

920 

5 

921 

5 

922 

5 

923 

5 

924 

5 

925 

5 

926 

5 

927 

5 

928 

5 

929 

5 

930 

5 

931 

5 

932 

5 

933 

5 

934 

5 

935 

5 

936 

5 

937 

5 

938 

5 

939 

5 

940 

5 

941 

5 

942 

5 

943 

5 

944 

5 

945 

5 

946 

5 

947 

5 

948 

5 

949 

5 

950 

5 

951 

5 
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5 
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5 
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4 

955 

4 
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4 
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4 
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4 
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4 
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4 

961 

4 

962 

4 

963 

4 

964 

4 

965 

4 

966 

2 
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2 

968 

2 

969 
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SHIP1       SHIP2       SHIP3 


AFS 


ICP 


DAY 


0 

2 

970 

0 

2 

971 

0 

2 

972 

0 

2 

973 

0 

2 

974 

0       ! 

0 

2 

975 

0       ] 

0 

2 

976 

0       ] 

0 

2 

977 

0       ] 

0 

2 

978 

0       ] 

0 

2 

979 

0       ] 

0 

2 

980 

0       ] 

0 

2 

981 

0       1 

0 

2 

982 

0       1 

0 

2 

983 

0       ] 

0 

2 

984 

0       ] 

0 
0 
0 
0 
0 
0 

2 

985 
986 
987 
988 
989 
990 

0 

2 

991 

0       ] 

2 

992 

0       1 

2 

993 

0       ] 

2 

994 

0       J 

2 

995 

0       1 

2 

996 

0       ] 

2 

997 

0       ] 

2 

998 

0       ] 

2 

999 

0       ] 

2 

1000 

0       ] 

2 

1001 

0       ] 

2 

1002 

0       ] 

2 

1003 

0       ] 

2 

1004 

0       ] 

2 

1005 

0       ] 

2 
2 
2 
2 
2 
2 
2 

1006 
1007 
1008 
1009 
1010 
1011 
1012 

0 

0 

1013 

L       0 

0 

1014 

L       0 

1 1 

0 
0 
0 
0 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 

o     ; 

3 

1037 

0 

3 

1038 

0       ] 

1 

3 

1039 
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SHIP1       SHIP2       SHIP3 


AFS 


ICP 


DAY 


Oil 

3 

104  0 

Oil 

3 

1041 

0                  1                 1 

3 

1042 

3                 11 

3 

1043 

Oil 

3 

1044 

Oil 

3 

1045 

Oil 

3 

1046 

Oil 

3 

1047 

Oil 

3 

1048 

Oil 

3 

1049 

Oil 

3 

10  50 

Oil 

3 

1051 

Oil 

3 

1052 

Oil 

3 

1053 

Oil 

3 

1054 

0                  1                 1 

3 

1055 

Oil 

3 

1056 

Oil 

3 

1057 

Oil 

3 

1058 

0                1                 1 

3 

1059 

Oil 

3 

1060 

0                 1                 1 

3 

1061 

0                 1.1 

3 

1062 

0                 1                 1 

3 

1063 

"»1                    1                    1 

0 

2 

1064 

110 

0 

1065 

110 

0 

1066 

110 

0 

1067 

110 

0 

1068 

110 

0 

1069 

110 

0 

107  0 

110 

0 

1071 

110 

0 

1072 

110 

0 

1073 

110 

0 

1074 

110 

0 

1075 

110 

0 

1076 

110 

0 

1077 

110 

0 

1078 

110 

0 

1079 

110 

0 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2/ 

2 

2 

2 

2 

2 

2 

2 

1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 

Oil 

1 

0 

1098 

THE    AVAILABILITIES    ARE: 

SI               S2               S3 

AFS 

ICP 

CA1 

CA2 

CA3 

0.6154    0.7647    0.8125 

0,7174 

0.7391 

0.7391 

0.4167 

0.4286 

THE    CORRELATIONS    ARE: 

CORSA  CORSC         CORAC 

0.7468       0.6740       0.6375 

THE    CHI     SQUARED    STATISTICS 
CHISA  CHISC  CHIAC 

197.1279       62.6127       35.4347 


ARE 
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*  THE    PURPOSE    OF    THIS    COMPUTER    PROGRAM    IS    TO    SIMULATE    A         * 

*  THREE    ECHELON    SUPPLY    SYSTEM    USING    A    MULTI-ITEM      COSAL     .    * 
$  $ 

*  IT    UPDATES    BACK    ORDER,     IN    TRANSIENT,    AND    ON    HAND    QUAN-      * 

*  TITIES    ON    A    DAY-TO-CAY    BASIS    FOR    THREE    YEARS     AND    COM-         * 
$  # 

*  PUTES    MARGINAL    AND    CONDITIONAL    AVAILABILITIES    AT    EACH         * 
$  * 

*  LEVEL.  * 

*  * 
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COMMON/GINO/DEMND( 50} , IC0NT(9,50J ,  I  TI  ME , I S BI N( 2  ,  50  ) 
. , I  HAND (5 0,3), I R(50) .  10  150) ,  I  BO (2. 50).  INTRN(50) , 
. IMANU(9.5  0)  ,IP( 50)  ,IPTRN(50)  , I  SENT (50) .  IPSENT(50), 
. IPC0N(2,50). IS  HIP (2.50), IP B0( 50 ) . A VERG( 50) 


6135 


100 
109 


154 
153 


121 
126 

122 

123 

124 
125 


102 

120 

103 
107 

106 


DIMENSION    AK5 
CA2(50) .CA3(50 
DATA    A1/50O.0 
DATA    CA2/50*0. 
CATA    DMAND/50* 
DO    6135    I     =    1. 
RN    =    RNM(O) 
IP(I)    =     IHAND( 
CONTINUE 
DO    100    K    =     1,5 
RN    =    RNM(O) 
DEMNDC  K)     =    -AV 
CONTINUE 
CONT  INUE 
DO    106    IMLSF    = 
ITIME    =     ITIME 
CO    153     Kl    =    1, 
IF( ISENT(Kl) .E 
ISENT(Kl)    =     IS 
IFUPSENT(Kl). 
IPSENT(Kl)     =    I 
CONT  INUE 
K    =    51 

CALL    PRI0R151) 
CALL     ICP     (1,51 
CALL    MLSF(51) 
IF( ITIME. GT. 11 
DO    102    Kl    =    1, 
IF(DEMND(K1).G 
DMAND(Kl)    =    DM 
IF(IHAND(K1,1) 
AKK1)     -    AKK1 
GO    TO    126 
CAKK1)     =    CAK 
IF(IHAND(K1,2) 
A2(K1)     =    A2(K1 
IF(IHAND(K1,3) 
A3(K1)     =    A3(K1 
IFCIHAND(Kl.l) 
IF(IHAND(K1,2) 
CA2(K1)     =    CA2( 
GO    TO    125 
DA2(K1)     =    DA2( 
IF(IHAND(K1,3) 
CA3CK1)     =    CA3( 
CONTINUE 
IHAND(Kl.l)     = 
K    =    K 1 

CALL     SHIP    (K) 
RN    =    RNM(O) 


0)  ,DMAND(50)  . A2 ( 50)  , A3 ( 5  0 )  ,C Al ( 50 ) » 

), DA2(50) 

/,A2/5  0*0.0/,A3/5  0*0.0/,CAl/50*.0001/ 

0/,CA3/5  0*0.0/  ,DA2/5  0*.0001/ 

.0001/. TOTAL/0.0/ 

50 

1.3) 

0 

ERG(K)*ALOG(RN) 


1  .45 
+    1 

50 

0.  0)     GO    TO    154 
ENT(Kl)    -    1 
EO.O)     GO    TO    153 
PSENT(Kl)    -    1 


) 


20)    GO    TO  901 

50 

T.0.0)    GO  TO    102 

AND(Kl)    +  1.0 

.LT.l )    GO  TO    121 

)    +    1.0 

Kl )     +    1. J 

.LT. 1)    GO    TO    122 

)    +    1.0 

.LT.l )    GO    TO    123 

)    +    1.0 

.GE.l)    GO    TO    125 

.LT.l)    GO    TO    124 

Kl)     +    1.0 

Kl)    +    1.0 

.LT.l)    GO    TO    125 

Kl  )     +1.0 

IHAND(Kl.l)    -     1 


=   -AVERG(K1)*AL0G(RN)     +    1.0 


1.50 

DEMND(L)    -    1.0 


1,3 
1). 


LT.O)    GO    TO    107 


DEMND( Kl) 
CONTINUE 
DO    120    L 
DEMND( L) 
CONT  INUE 
DO    103    L 
IF( IHANDC 
CONTINUE 
GO    TO    106 
AVAIL    =    AVAIL 
AVAIL    =     1.0-(A' 
CONTINUE 
DO    151    J    =    1,2 
CO    152    L    =    1,5 
IHAND(L,J)     =    IHAND(L.J)    +    ISBIN(J.L) 
ISBIN(J.L)    =    0 


+    1.0 

.VAIL/1098.0) 


0 


61 


152 
151 

901 


131 

3101 

» 

3102 

3103 
3104 
3105 

t 

3107 

3003 
52  52 


CONTINU 
CONTINU 
GO    TO    1 
CONTINU 
DO    131 
AHL)     = 
TOTAL    = 
A2(LJ     = 
A3(L)    = 
CA3(L) 
CA2(L) 
CA1(L) 
CONTINU 
WRITE(6 
FORMAT ( 

•  SHIP 
WRITE(6 
WRITE{6 
FORMAT ( 
«  SHIP 
WRITE  (6 
WRITE(6 
FORMAT  ( 

•  AFS  A 
WRITE(6 
WRITE(6 
FORMAT! 
"  AFS  A 
WRITE (6 
WRITE(6 
FORMAT  ( 
1  ICP  A 
WRITE16 
WRITE(6 
FORMAT ( 

•  ICP  A 
WRITE  (6 
FORMAT ( 
WRITE16 
FORMAT! 
•LITY  I 
STOP 
END 


E 
E 

09 
E 

L  = 
All 


1.5 

L)/ 


TOTAL 
A2( L) / 
A3(L)/ 
=  CA3(L 
=  CA2(L 
=  1  .0  - 
E 

,3101) 
1 1«  ,/// 
ARE: •/) 
,3003)A 
.3102) 
//15X,' 
ARE: •/) 
.3003)C 
.3103) 
» 1'  ./// 
RE: •/) 
♦3003) A 
,3104) 
//15X,« 
RE: '/  ) 
,3003)C 
,3105) 
« 1' ./// 
RE:' /) 
,3003)A 
.3107) 
//15X,« 
RE:  •/) 
,3003)C 
1C(  15X, 
,5252  ) 
'  •  ,/// 


0 
DMAND(L) 

+  CMAND(L) 
DMAND(L) 
DMAND(L) 
J/DA2 (L) 
)  /CAKL) 
CA1(L)/DMAND(L) 


/, 15X, 'MARGINAL  AVAILABILITIES  AT  THE1, 

1 

CONDITIONAL    AVAILABILITIES    AT    THE', 

Al 

/, 15X, 'MARGINAL  AVAILABILITIES  AT  THE', 

2 

CONDITIONAL  AVAILABILITIES  AT  THE', 

A2 

/,15X, 'MARGINAL  AVAILABILITIES  AT  THE', 

3 

CONDITIONAL  AVAILABILITIES  AT  THE', 

A3 

5( 3X,F6.4)//) ) 

AVAIL 

,15X,'THE  SYSTEM  OPERATIONAL  AVAILABI', 

6.4) 
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c 
c 
c 


206 


205 


2  04 
202 


SUBROUTINE     SHIP(K) 

— SUPPLY    POSITION    OF    THE    SHIP, 50    PARTS, Q= 1    POLICY — 

C0MM0N/GIN0/DEMND(50) ,  IC0NT{9, 50 ) ,  I T I ME , I  SB  IN C 2 , 50) 

•  I  HAND ( 5  0,3)  ,1  R( 50)  ,10(50)  , I  BO ( 2 , 50 ) ,  I  NT RN  (50  ) , 

IMANU(9,50) , IPC  50) , IPTRN(50) , I  SENT (50)  ,IPSENT(50)  , 

IPC0N(2,50)  ,ISH1P(2,50),  IPB0(50 ), AVERG(50) 

IF( IHAND(K,l).GE.O)     GO    TO    205 

ICHCK    =     IHAND(K,  1)     +    1 

IF  (ICHCK.LE.O)     GO    TO   206 

GO    TO    205 

CONT  INUE 

CALL    PRIOR(K) 

GO    TO    202 

IF( IHAND(K,2).EQ.O)     GO    TO    204 

CALL    MLSF     (K) 

GO    TO    202 

CONTINUE 

CALL     ICP     (1,K) 

CONTINUE 

RETURN 

END 
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SUBROUTINE    MLSF(K) 
C 

C  INVENTORY    POSITION    OF    THE    MLSF,    Q=IPOLICY— — 

C 

COMMON/ GINO/DEMNCC 50),  IC0NT(9.  50),ITIME,ISBIN(2,50) 
. ,IHAND( 5  0,3)  ,1  R( 50J  .10(50}  . I  BO (2, 50), I  NT RN (50), 
.IMANU(9.50) , IP( 50) ,  IPTRN(50) , I  SENT (50) , IPSENT(50)  , 
.  IPC0N(2,50)  ,ISHIP(2.50),  IPBO ( 50 ) , AV ERG( 50 ) 
C 

IFIK.E0.5DG0    TO    325 
C  IP    IS    GREATER    THAN    ORDER    SO    FILL     IT 

IHAND(K,2)        =    IHAND(K,2)     -    1 
C  ChECK     IF    A    PART     IS     INTRANSIT, IF    SO, ADD    THIS    PART 

IFUNTRN(K)  .GT  .0  )     GO    TO    350 
C  SET    RANDOM    DAYS    INTRANSIT    COUNTER, PUT    PART    INTRANSIT 

IITIME    =     ITIME    +    15 
ISENT(K)        =    29    -    MOC( I  ITIME, 30 ) 
INTRN(K)  =    1 

GO    TO    320 
C  PUT    THE    ADDITIONAL    PART    INTRANSIT 

350     INTRN(K)    =     INTRN(K)     +     1 
C  FORWARD    ALL    REQUISITIONS    TO    ICP 

320    CALL    ICP(2.K) 
GO    TO    340 
C  CHECK    TO    SEE    IF    INTRANSIT    PARTS    HAVE    ARRIVED 

325    DO    330    J    =     1,50 

IF( INTRN(J) ,EQ.O)GO    TO    330 
IF(ISENT(J).GT.O)GO    TO    330 
IHANDU.l)       =     IHAND(J.l)     +    INTRN(J) 
INTRN(J)    =    0 
ISENT( J)     =    0 
330    CONTINUE 
340    RETURN 
END 
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SUBROUTINE     ICP(IW.K) 
C 

C  — INVENTORY    POSITION    OF    THE     ICP,     (RtQ)     POLICY  — 

C 

CCMMON/GINO/DEMND(50)  i  IC0NT(9, 50  J ,  IT  I  ME ,  I  SB  IN ( 2 , 50  J 
. , I  HANOI  5  0,3)  ,1  R( 50)  ,10(50)  ,  I  BO ( 2  ,50 )  , I  NT RN ( 50 ) , 
. IMANUI9, 50), IP ( 50) ,  IPTRN15  0) , I SENT( 50) , 1 P SENT ( 50)  , 
. IPCONi2,50)  , I  SHIP (2 ,50),  IPBO(50  ),AVERG(50) 

IF(K,E0.51)G0    TO    435 

IF( IHAND(K,3 ).LE.O)  GO  TO  420 
C      IP  IS  GREATER  THAN  ORDER  SO  FILL  IT 

IHAND(K,3)  =  IHAND(K,3)  -  1 

IP(K)  =  IP(K)  -  1 

ISBIN(IW.K)  =  ISBIN(1W,K)  +  1 

GO    TO    470 
C  IF    IP    WAS'T    LARGE    ENOUGH    TO    FILL    ORDER 

420     IHAND(K,3)     =    IHAND(K,3)     -    1 

IP(K)    =     IP(K)    -    1 

IBO( IW,K)     =    IBO( IW,K)     +    1 

GO  TO  470 
C      CHECK  TO  SEE  IF  IT  IS  TIME  TO  REORDER 
435  DO  444  1=1 ,50 

IF( IP( I ) «GT. IR( I  ))  GO  TO  444 
C      CAN  REORDER, CHECK  TO  SEE  IF  WE  ALREADY  HAVE 

DO  440  J=l,9 

IF(  IMANUU,  I  ).GT.O)GO    TO    440 
C  OK.    REORDER    AND    SET    THE    6    MONTHS    COUNTER 

IMANU(J.I)     =    IMANUU,  I)    +    IQ(I) 

IP  (  I  )    =     IP  (  I  )    +     IMANUU, I) 

ICONT(J.I)     =    IT  I  ME    +    180 

GO    TO    441 

440  CONTINUE 

441  CCNTINUE 

444  CONTINUE 

C      HAVE  THE  MANUFACTURED  ITEMS  ARRIVED 

DO  465  1=1 ,50 

DO  460  N=l,9 

IF( IMANUtN, I ). EO.O) GO    TO    460 

IF( ICONTCN,! J.GT.l TIME)GO    TO   460 

DO  450  J=l,2 
C      FILL  THE  BACKORDERS 

IF( IMANU(N,I ). LE.I 30(3-J,I ) ) GO  TO  445 

IMANU1N.I)  =  IMANUCN.I)  -  IB0(3-J,I) 

ISBIN(3-J,I)  =  ISBIN(3-J,I)  +  IB0(3-J,I) 

I  BO  (3- J,  I)  =  0 

GO  TO  450 
C      BO  CAN  BE  PARTIALLY  FILLED 

445  IB0(3-J,I)  =  IB0(3-J,I)  -  IMANU(N,I) 
ISBIN(3-J,I)  =  ISBIN(3-J,I)  +  IMANU(N,I) 
IMANU(N,I  )  =  0 

450    CONTINUE 

IMANUCN.I)     =    0  i 

460  CONTINUE 
465  CONT  INUE 
470    RETURN 

END 
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SUBROUTINE    PRIOR     (K) 
C 

C  — THIS     IS    THE    PRIORITY    PORTION    OF    THE    PROGRAM 

C 

COMMON/GINO/DE  MNDI5  0)  , IC0NT(9,50)  , ITIMEt  IS B  IN (2 1 50) 
. , I  HAND (50t 3) ,IR(  50)  ,IQ( 50)  , IBO( 2,50)  , INTRNI50)  , 
.  IMANU(9,50)  , IP(50) ,  IPTRN(50), I  SENT (50) ,  IP  SENT! 50) , 
.IPCON(2,50) ,ISHIP(2,50),IPB0(50) ,AVERG150) 
IFIK.EQ.51)  GO  TO  330 
IF(IHAND(K,2). EO.O)  GO  TO  710 
IF( IPSENT(K) .GT.O)  GO  TO  740 
IITIME  =  ITIME  +  15 
IPTIME  =  29  -  MOD( I  ITIME, 30) 
IF( ISENT(K) .EQ.O)  GO  TO  730 
IPSENT(K)    =  MI  NO (8, IPTIME) 
GO  TO  740 
730  IPSENT(K)  =  8 

740  IHAND(K,2)  =  IHAND(K,2)  -  1 
IPTRN(K)  =  IPTRN(K)  +  1 
CALL  ICP  12, K) 
RETURN 

710  DO  770  J  =  1,50 

IF(  INTRNU  )  .EQ.O)    GO    TO    770 
IFUPSENT(K)  .GT.O)     GO    TO    790 
IFIISENTIK) .EQ.O)    GO    TO    711 
IITIME    =    ITIME    +    15 
IPTIME     =    29    -    MODI  I  ITIME, 30) 
IPSENT(K)     =    MINOI 8, IPTIME) 
GO    TO    790 

711  IPSENT(K)     =       8 

790     INTRN(J)     =     INTRN(J)    -     1 

IPTRN(K)     =    IPTRN(K)     +    1 

CALL    ICP    ( 1, J) 

RETURN 
770    CCNTINUE 
C 
C  THIS     IS     ICP    PORTION    OF    THE    PRIORITY    SUBROUTINE 

IFIIHANDIK.3) . EO.OJGO    TO    310 
C  THE    ORDER    CAN    BE    FILLED, PUT    THE    PART    IN    SHIPMENT 

IHAND(K,3)     =     IHAND(K,3)    -1 

IP(K)     =     IP(K)    -    1 

IF( ISHIPI l,K).GT.O)  GO  TO  305 

ISHIPI1 ,K)  =  1 
C      SHIPMENT  TAKES  21  DAYS 

IPCONt 1,K)  =  ITIME  +  21 

GO  TO  800 
305  ISHIP(2,K)  =  1 

IPC0N(2,K)  =  ITIME  +  21 

GO  TO  800 
C      NO  PARTS  ON  HAND  ,BACKORDER  ALL  OF  THE  PARTS 
310  IHAND(K,3)  =  IHAND(K,3)  -1 

IP(K)  =  IP( K)  -  1 

IPBO(K)  =  IPBO(K)  +  1 

GO    TO    800 
C  ANY    PARTS    ARRIVE    FRCM    THE    MANFACTURER   TODAY 

330    DO    345    J    =1,50 

DO   340    N=l ,9 

IF(IMANU(N, J). EO.OJGO    TO    340 

IF( ICONT(N,J ).GT.ITIME)GO    TO    340 

IHANDU.3)     =    IHAND(J,3)     +    IO(J) 
C  PARTS    ARRIVED    FROM    MANUF AC TURER ,FI LL    PRIORITY    BO 

IF(IMANU(N,J).LE.IPBO( J) ) GO    TO    350 

IMANU(N.J)     =    IMANU(N,J)    -    IPBO(J) 

ISHIPI1,J)     =    ISHIP(l.J)     +    IPBO(J) 

IPCON(ltJ)     =     ITIME    +    21 

IPBO(J)     =    0 

GO    TO    360 
350     IFIIMANUIN.J). EO.O) GO    TO    340 
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363 

340 
345 

751 


741 


370 

380 
800 


PARTIALLY 
IPBU(J)     = 
ISHI  P(l ,J) 
IPCONC1, J) 
IMANU(N,J J 
CONTINUE 
CONTINUE 
CONT  INUE 
HAVE    ANY    PARTS 
DO    741    J=l, 50 
IF{ IPTRN(J)  .EQ. 
IF( IPSENTC  JJ  cGT 


FILL     PRIORITY    BACKORDERS 
IPBO(J  )    -     IMANU(N, J) 


=    I  SHIP (1 
=     1TIME    + 

=    0 


J  ) 
21 


+    IMANU(N.J) 


ARRIVED    AT    THE    SHIPS 


0)G0    TO    741 
.OiGO    TO    74 
J, 1)     =    IHAND( J, 1)     + 


IHANDi 
IPTRN(J)     =    0 
IPSENTCJ)     =     0 
CCNT  INUE 
DO    383    J=l  ,50 
DO    370    1=1,2 
I  F  (  I S  H I  P  { I  f  J  ) , 
IF{  IPCONU  ,J). 
THE    SHIPMENT 
IHAND(J.l)     = 
ISHIPt I.J)     = 
CONT  INUE 
CONTINUE 
CONTINUE 
RETURN 
END 


IPTRNt J) 


.EO.OJGO    TO    370 
-GT.ITIMEiGO    TO    370 
HAS    ARRIVED    SO    ADD    IT    TO 
IHAND(J,1)     +    ISHIP(I,J) 
0 


THE     SHIP*     ON    HAN 
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BLOCK 

COMMO 

,1HAN 

IMANU 

IPCON 

DATA 

DATA 

DATA 

DATA 

DATA 

5*15 

DATA 

DATA 

DATA 

5*0,1 

0,  1,  1 

5,10. 

26,33 

END 


DATA 
N/GINO 
D(50,3 
(9,50) 
(2,50) 
IMANU/ 
I  S  B I  N  / 
IP  SENT 
I  SENT/ 
AVERG/ 
0,5*10 
IR/5*0 
10/15* 
IHAND/ 
0*  2  ,  5* 
,2,3,  0 
11,13, 
,40,30 


/DEM 
),  IR 
,IP( 
,ISH 
450* 
1  00* 
/!50* 
50*0 
5*30 
.0,  5 
,5*1 
1,5* 
5*0, 
3,5* 
,1,2 
16,8 
,60, 


ND{  5 
(  50) 
50)  , 
IP(  2 
0/,  I 
0/,I 
0/,I 
/,  IS 
0.0, 
*8.  0 
,5*2 
3,5* 
10*1 
5,5* 
y2o2 
.  15, 
61,7 


0)  ,1 

,IQ( 
IPTR 
,50) 
CONT 
BG/1 
PTRN 
HIP/ 
5*12 
,  5*6 
,5*4 
4,  5* 
,5*2 
6,5* 
.1,2 
16,2 
5,90 


CONT 
50)  , 
N(50 
,IPB 
/450 
00*0 
/50* 
100* 
0.0, 
.  0,5 
,5*7 
6,5* 
,5*3 
9,5* 
,3,3 
0,24 
/ 


(9,50) ,IT 
IB0(2,50) 
),  ISENT(5 
0(50) ,AVE 
*0/,  IT  I  ME 
/ , INTRN/5 
0/,I PCON/ 
0/, IPBO/5 
5*6  0. Ot 5* 
*3.0/ 
,5*10,5*1 
9,5*12,5* 
,4*4, 5*6, 
11,5*12,5 
,3,2,4,5, 
,  10,20,21 


IME, ISBIN(2,50) 

,INTRN(50) , 

0),  IPSENT (5D), 

RGC50J 

/O/ 

0*0/ 

100*0/ 

0*0/ 

30.0,5*20.0, 

5,5*20,5*25, 5*60/ 

15,5*30/ 

5*7,  5*8,5*18, 

*27, 

6,7,4,7,8,9,11, 

,26,32,13,25, 
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SAMPLE  OUTPUT     FOR    THE    MULTI-ITEM  MODEL 

MARGINAL    AVAILABILITIES    AT    THE    SHIP    ARE: 

0.0  0.0  0.0  0.0  0.0 

0.7500  0.7000  0.8750  0.6667  0.8889 

0.4500  0.9000  0.4286  0.4000  0.3810 

0.6897  0.4857  0.7000  0.6970  0.4706 

0.6481  0.7619  0.7609  0.8958  0.7091 

0.9464  0.9483  1.0000  1.0000  1.0000 

1.0000  0.9897  0.9709  1.0000  1.0000 

1.0000  1.0000  1.0000  0.9915  1.0000 

1.0000  1.0000  1.0000  1.0000  1.0000 

1.0000  1.0000  1.0000  1.0000  0.0 

CONDITIONAL    AVAILABILITIES  AT    THE    SHIP    ARE: 

0.0  0.0  0.0  0.0  0.0 

0.7500  0.7000  0.8750  0.6667  0.8889 

0.4500  0.9000  0.4286  0.4000  0.3810 

0.6897  0.4857  0.7000  0.6970  0.4706 

0.6481  0.7619  0.7609  0.8958  0.7091 

0.9464  0.9483  1.0000  1.0000  1.0000 

1.0000  0.9897  C.9709  1.0000  1.0000 

1.0000  1.0000  1.0000  0.9915  1.0000 

1.0000  1.0000  1.0000  1.0000  1.0000 

1.0000  1.0000  1.0000  1.0000  0.0 
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MARGINAL    AVAILABILITIES    AT    THE    AFS    ARE: 


0.0 

1.0000 

0.7000 

0.8621 

0.8333 

0.9821 

0.9727 

1.0000 

1.0000 

1.0000 


0.0 

1.0000 

1.0000 

0.6571 

0.9048 

0. 9483 

1.0000 

0.9915 

1.0000 

1.0000 


0.0 

1.0000 
0.8571 
0.9333 
0.9783 
1.00  00 
0.9417 
1.00  00 
1.0000 
1.0000 


0.0 

0.8889 

0.9000 

0.8485 

0.9375 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 


0.8333 
1.0000 
0. 8571 
0.9412 
0.9091 
1.0000 
1.0000 
1.0000 
1.0000 
0.0 


CONDITIONAL    AVAILABILITIES    AT    THE    AFS    ARE: 


0.0 

0.0 

0.0 

0.0 

0.8333 

0.9999 

1.0000 

0.9999 

0.6666 

0.9999 

0.54  54 

0.9999 

0.7500 

0.8333 

0.7692 

0.5555 

0.3333 

0.7778 

0.5000 

0.8889 

0.5263 

0.6000 

0.9091 

0.8000 

0.7500 

1.0000 

0.3333 

0.0 

0.0 

0.0 

0.0 

0.9999 

1.0000 

0.0 

0.0 

0.0 

0.0 

0.0 

0.9999 

0.0 

0.0 

0.0 

0.0 

0.  0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 
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MARGINAL    AVAILABILITIES    AT    THE    ICP    ARE: 

0.6667          1.0000          1.0000  1.0000  0.5000 

0.5000          C.3000          0.3750  0.3333  0.4444 

0.3000          0.8000         0.4286  0.1500  0.1429 

0.2414          0.4000          0.3333  0.4242  0.2059 

0.1852          0.5000         0.5652  0.4792  0.4182 

0.6071          0.7414          0.7460  0.8448  0.9000 

0.5455          0.8351          0.7087  0.0586  0.8842 

0.9237         0.8559          0.7754  0.9153  0.8053 

0.9444          0.9281          1.0000  0.9732  0.8690 

1.0000          1.0000         1.0000  1.0000  0.8168 

CONDITIONAL    AVAILABILITIES    AT  THE     ICP  ARE: 


0.6667 

1.0000 

1.0000 

1.0000 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3333 

0.0 

0.  0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.8168 

THE    SYSTEM    OPERATIONAL    AVAILABILITY     IS       0.9217 


:***********************************  **  ************** *********************** 
C****** ***************************************************************** *** 
******************************************************* ******************* 
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